CURSO PRATIC 




PROGRAMACAO BASIC - PROGR 



cuurutvii 



ODIGO DE AAAQUINA 

CzS 50,00 





Vol. 5 



N.° 62 



NESTE NUMERO 



TECNICAS DE RECURSAO 

Recursao, uma t§cnica avangada de programacao. 
Usos e dificuldades. Princfpio b^sico; subdivisao do 
problema. Procedimentos recursivos. Previsao de 
erros. Limitacoes. Aplicacoes. Programacao de jo- 
gos: As Torres de Hanoi. 1 221 



AVALANCHE: PONTOS GANHOS 

Willie chega ao topo da montanha e recupera uma 
parte do lanche perdido. Execucao da triiha sono- 
ra. Mudanga do nivel de dificuldade do jogo. Au- 
mento da velocidade. Pontes ganhos. Incremento 
do placar. Alteracao dos digitos. Willie retoma ao 
ponto de partida 1 228 



PROOKAMACAODEJOeOS 
OS DADOS VAO POLAR 

Poquer com dados: urn jogo projetado para varios 
participantes. Regras. Estrategia. Inicializacao. UDG 
dos dados. laco-mestre. Rolando os dados. C^l- 
culos do placar e verificagao de entradas. impres- 
sao do placar 1 234 




PLANODAOBRA 

"I N PUT" e uma obra editada em fasciculos semanais, e cada 
conjuntode 15 fasciculos compoe um volume. Acapa paraenca- 
dernagao de cada volume estara a venda oportunamente 

COMPLETE SUA COLECAO 

Exemplares atrasados, ate seis meses apos o encerramento da cole? ao, pode- 
rao ser comprados, a preijos atualizados, da seguinte forma: 1. PESSOAL- 
MENTE — Por meio de seu jornaleiro ou dirigindo-se ao distribuidor local, 
cujo enderefo podera ser facilmente conseguido junto aqualquer jornaleiro 
de sua cidade. Em Sao Paulo, os enderefos saor rua Brigadeiro Tobias, 773, 
Centro; avenida Industrial, 117, Santo Andre; e no Rio de Janeiro: avenida 
Mem de Sa, 191/193, Centra 2. POR CARTA — Poderao ser solicitados exem- 
plares atrasados tambem por carta, que deve ser enviada para DINAP — Dis- 
tribuidora Nacional de Puhlica^oes — Niimeros Atrasados — Estrada Velha 
de Osasco, 132, Jardim Teresa — CEP 06000 — Osasco — SP. Nao envie pa- 
gamento antecipado. O atendimento sera feito pelo reembolso postal e o pa- 
gamento, incluindo as despesas postais, devetti ser efetuado ao se retirar a en- 
comenda na agenda do Correio. 3 . POR TELEX — Utilize o n? (01 1 ) 33 670 
DNAP. 

Em Portugal, os pedidos devem ser feitos i Distribuidora Jardim de Publica- 
f oes, Lda. — Qta. Pau Varais, Azinhaga de Petals — 2 685, Camarate — Lis- 
boa; Apartado 57 — Telex 43 069 JARLIS P 

Ateitf ao: Apos seis meses do encerramento da colegao, os pedidos serao aten- 
didos dependendo da disponibilidade do estoque. 

Obs.: Quando pedir livros, mencione semprelitulo e/ou autor da obra, alem 
do numero da ediijao. 

COLABORE CONOSCO 

Encaminheseuscomenlarios, criticas, sugestoes ou reclama^oes 
ao Servii^o de Atendimento ao Leitor ^Caixa Postal 9442, 
Sao Paulo — SP. 




Editor 

VICTOR aVlTA 



REDA^IAO 

Diretor Editorial: dtmo Chagas 

Cdltoret Executivos: Antonio Jose Filho, 
Berta Sztarti Amar 

Editor Chefe: Paulo de Almeida 

Editors de Texto; Ana Liida B. de Lucena 

Chefe de Arte: Carlos Luiz Batista 

Assi«tente« de Arte: Dagmar Bastos Sampaio, 

Grace Alonso Airuda, Monica Lenardon Corradi 

Secretaria de Redafao/ Coordenadora: Stelania Crema 

Secretaries de Redaf ao: Beatnz Hagstrom, 

Jose Benedito de Oliveira Damiao, Maria de Lourdes Carvalho, 

Marisa Soares de Andrade, Maura de Queiroz 



COLABORADORES 

Consultor Editorial Responaivel: Dr. Renato M. E. Sabbatini 

piretor do NiJcleo de Informatica Biomedica da 

Universidade Estadual de Campinas) 

Execufio Editorial; DATAQUEST Assessoria em 

informatica Ltda., Campinas. SP 

Tradu^o, adaptaf ao, progttunaf io e reda^o: 

Abilio Pedro Neto, Aluisio J, Dornellas de Barros, 

Marcelo R, Pires Ttlerezo, Marcos Huascar Velasco, 

Raul Neder Porrelli, Ricardo J. P. de Aquino Pereira 

Coordena^o Geral; Rejane Felizatti Sabbatini 



COMERCIAL 

Diretor Comercial: Roberto Martins Silveira 
Gerente Comercial: Flavio Maculan 
Gerente de Circula^ao: Denise Maria Mozol 

PRODlfAO 

Gerente de Produ^ao: Joao Stungis 

Coordenador de Impressao: Atilio Roberto Bonon 



Prepai«dor de Texto/Coordenador: Eliel Silveira Cunha 

Preparadores de Texto; Abira Moreira Braz, 

Ana Maria Dilguerian, Levon Yacubian, 

Luciano Tasca, Maria Teresa Galluzzi. 

Maria Teresa Martins Lopes, Paulo Felipe Mendrone 

Reviior/Coordenador: Jose Maria de Assis 

Reviaoraa: Concei^ao Apareclda Gabriel, 

Isabel Leite de Camargo, Ligia Aparecida Ricetto, 

Maria de Fatima Cardoso, Nair Lucia de Britto 

Paste-up: Anastase Rataris, Balduino F Leite, Edson Donalo 



© Marshall Cavendish Limited 1984/85. 

© Edifora Nova Cultural Ltda., Sao Paulo, Brasil, 1986. 

EdigSo organlzada pela Editora Mova Cultural Ltda. 

Av. Brigadeiro Faria Lima, n? 2000 - 3? andar 

CEP 01452 -Sao Paulo -SP- Brasil 

(Artigo 15 da Lei 5 988, de 14/12/1973). 

Esta obra foi composla na AM Produgftes Graiicas Ltda. 

e impressa na Divisao Grifica da Editora Abril S.A. 



llllimiHE"'^^ PHOGRAMACAO BASIC 



TiCNDCA 




UMA TECNICA MISTERIOSA? 



A MAQUINA INTELIGENTE 



PROCEDIMENTOS RECURSIVOS 



LIMITACOES 



COMO EVITAR ERROS 



,;:.0^- 



Se seu programa possui sub-rotinas 
que sao chamadas repetidamente, 
e bem prov^vel que as tecnicas de 
recursao possam torna-lo mais r^pido 
e eficlente. Veja como utiliza-las. 



A construcao de um progTama con- 
jiste, essencialmeme, em achar a melhor 
solu(;ao para um determinado problema 
atraves de uma serie de comandos, A 
medlda que ganha experiencia, o pro- 
gramador aprende que o meihor cami- 
nho para isso e dividir o problema prin- 
cipal em partes menores. Tal m^todo, 
no entanto, pode virar um pesadelo. 
Muitas vezes, ao tentar resolver uma 
etapa do processo, esbarra em outro 
processo e, quando resolve este, surge 
ainda outro e assim por dlante. Em cer- 
to momento, o programador pensa em 
desistir, pois imagina estar andando em 
um verdadeiro circuio vicloso. 

Mas um microcomputador nao es- 
moreceria tSo facilmente: para casos 
desse tipo, em que os problemas pare- 
cem sair uns dos outros, e'xistem tecni- 
cas avan^adas de programa(;ao, as cha- 
madas tecnicas de recursao. 



UMA TECNICA MISTERIOSA? 



Geralraente, programadores inician- 
tes consideram a recursao uma ferra- 



menta coniplexa e ate mesmo misterio- 
sa, A grande dificuldade estd na com- 
preensao da propria listagem de um pro- 
grama desse tipo; ate mesmo os iluxo- 
gramas mais didaticos parecem obscu- 
res quando representam processes re- 
cursivos. Apesar de tudo, o principio 
basico dessa tecnica nao e tao com- 
pUcado. 

Na matematica, a palavra recursao e 
utilizada para designar a repetii^ao de 
uma determinada opera?ao. Em infor- 
m^tica, porem, cla adquire um signifi- 
cado especifico. Basicamente, a recur- 
sao e o chamamento sucessivo de uma 
sub-rotina ou de um procedimento, apos 
serem estabeiecidos aiguns parametros 
iniciais. Dcpois de acionada, a sub-ro- 
tina — ou procedimento — chama a si 
mesma, repetidamente, atualizando os 
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parametros iniciais a cada vez, at^ que 
uma certa condigao, previamente esta- 
belecida, seja alcancada. 



A MAQUINA INTELIGENTE 



Imaginemos a seguinte situacSo: um 
motorista se encontra em uma grande ci- 
dade desconhecida e precisa ir do lugar 
A para o lugar B. Embora tenha o ma- 
pa da cidade, acha muito diffcil ir dire- 
tamente ao local desejado. Decide en- 
tao dividir o itinerario em vartos tre- 
choi, estudando um por vez. EscoJhe, 
assim, um lugar C, em uma posi^So in- 
termedi^ia. Analisa o trajeto entre A 
e C e se dirige para 1^. 

Chegando em C, o motorista avalia 
a possibilidade de ir diretamente at^ B 



Case isso Ihe pare?a complicado, pro- 
cura uma ouira po5ig5o intermedidria, 
D. O processo se repeie ate que eie atinja 
seu destino. 

Esse exempio demonstra o principio 
bisico da recursSo, tal como e aplicada 
em programa?ao: a solu^ao de um pro- 
blema 6 obtida pela sua subdivisao em 
problemas menores ou mais ficeis, 

Assim que o programa alcanna um 
novo nivel de recursao, torna-se neces- 
sario armazenar as informa?6es que fo- 
ram conseguidas no nivel anterior, pa- 
ra recuperi-las no passo seguinte. Ao 
inicio de cada m'vel, um novo conjunto 
de parametros e montado e, por meio 
de um teste, verifica-se sc tal etapa che- 
gou ao fim. Sem esse teste, o processo 
nunca terminaria. 

Para observar o funcionamento des- 



sa t^cnica, execute o proximo programa. 
Ele imprime todos os valores inteiros 
positivos de N ate 1. 



20 PRINT INVERSE 1 i TAB 1 : ' I 

NTEIBOS POSITIVOS DE N ATE 1" 

30 INPUT 'DIGITE O INTEIHO A 

PABTIR DO QUAL VOCE QUEH C 

ONTAR REGREDIN- DO ATE 1 {0 P 

ARA SAIR) 'iN; LET N-INT N: 

IF N<1 THEN STOP 

40 GOSUB 80 

50 GOTO 30 

80 IF N-0 THEN RETURN 

90 PRINT ;N[" ": 

LET N=N-1 : GOSUB 80 



100 

110 RETURN 



a 



10 CLS 

20 PRINT "INTEIROS POSITIVOS DE 

N A 1" 
30 PRINT : PRINT :INPUT"D1GITE V 
ALOR INTEIRO A PARTIB DO OUAL V 
OCE QUER REGREDIR ATE 1 (0 OU N 
EGATIVO PARA TERMINAR) "iN:N-IN 
T(N} :IF N<1 THEN END 
40 GOSUB 80 
50 GOTO 30 

80 IF N-0 THEN RETURN 
90 PRINT N;".'; 
100 N-N-1: GOSUB 80 

10 RETURN 



10 HOME 

20 PRINT TAB{ 7) "INTEIROS POS 




ITIVOS DE 1 A N' 

30 PEINT : PRINT : INPUT "DICI 
TE UM VALOB INTEIBO PARA A CONT 
AGEM BEGPESSIVA {1-23 E OU ME 
NOS PARA SAIR) ":N:N = INT (NJ 
: IF N < I THEN END 
40 GOSUB 80 
50 GOTO 30 

BO IF N = THEN RETURN 
90 PEINT N ; *• , " J 
100 N - N - 1 : GOSUB 80 
110 RETURN 



m 



10 CLS 

20 PRINT TAB (5) 'INTEIROS POSIT 

lUOS DE 1 AN" 

30 PRINT: PRINT: INPUT'DIGITE N 

OMERO PARA A CONTAGEM REGRES-SI 

UA (0 OU MENOS PARA SAIR)'iN:N- 

INT(N):IF N<1 THEN END 

40 GOSUB 80 

50 GOTO 30 

80 IF N»=0 THEN RETURN 

90 PRINT N;". " ; 

100 N-N-1:G0SUB 80 

110 RETURN 




programa permite que voce intro- 
duza um valor inteiro e, a partir dele, 
faz uma contagem regressiva ate 1. 
Qualquer valor menor que 1 interrom- 
pe programa. No Apple e no TK-2000, 
vatores maiores que 23 nao funcionarao, 
poiis esses micros podem memorizar ape- 
nas 23 desvios para uma sub-rotina. 

A linha 40 chama a sub-rotina recur- 
siva. A primeira linha desta verifica se 
a tarefa foi completamente execuiada. 
Esse teste i essenciaJ para o termino de 
todo o processo. 

No primeiro nivel da recursao, a va- 
ridvel N possui o valor introduzido por 
voce. Ele e impresso pela linha 90. O se- 
gundo nivel e iniciallzado p^la linha 100, 
que reduz o valor de N em uma iinida- 
de e chama a sub-rotina novamente, 
com o valor de N ja alterado. O progra- 
ma aJterna-se, assim, repetidamente, en- 
tre as linhas 80 e 100. 

Quando N alcanna o valor (na li- 
nha 300). o programa e desviado, como 
de costume, para a linha 80, onde en- 
contra o comando RETURN, que o faz 
retomar da sub-rotina chamada na linha 
100. A pr6xima instruipao, na linha 1 10, 
tamb^m € um comando RETURN, que, 



desta vez, faz o programa retornar da 
sub-rotina chamada na linha 40. A tinha 
50 executa o programa novamente. 

Note que quando o programa termi- 
na, a variivel N contem o valor 0, atri- 
buido na linha 100. Mas a linha 90 
nunca imprime esse valor. Para colo- 
car o ultimo valor impresso na varia- 
vel N, voce poderia acrescentar a linlia 
105 com o comando N = N-»-l (LET 
N= N+ 1, para o Spearum). Desse modo, 
N conteria sempre o ultimo valor impresso. 



PROCEDIMENTOS RECURSIVOS 



Algumas outras linguagens, como o 
PASCAL, incluem o que se chama de 
procedimemo (procedure). Trata-se de 
um conjunto de tinhas definldas em uma 
certa parte do programa — como uma 
sub-rotina — que recebe um nome. Di- 
ferentemente das sub-rotinas. um pro- 
cedimento e chamado atraves desse no- 
me. Quando se define um procedimen- 
to, indicam-se tambem as varidveis que, 
apos sen termino, retornarao ao estado 
inicial. Este e um bom expediente na 
construgao de processes rccursivos. 




Os tipos de BASIC com que traba- 
Ihamos nao permitem que uma varidvel 
assuma um valor e, ao sair da sub-ro- 
tina, rctorne ao valor inicial sem a in- 
terferencia de um comando. Assim, so- 
mos obrigados a restabelecer seus valo- 
res iniciais antes de iniciar outra sub- 
rotina. O programa a seguir demonstra 
como contomar esse problcma. 



10 DIM NC34) 
20 CLS 



DIM A(34) 



|[ 9B PROGRAMACAOBAl 



30 PBINT TAB 6; INVERSE li'C 

ALCULO DE FATORIAL" 

4 INPUT 'DIGITE NUMEHO PAKA 

FATORIAL (1-33, OU PARA 
SAIH) " ;NU 

50 IF NU>33 OR NUOINT (NU) 

OR NU<0 THEN RUN 

60 IF NU-0 THEN STOP 

70 LET LE-1: LET NtLE)=NU: 

LET AN=NU 

60 COSUB 150 

90 PRINT AN;"! = ";AC1}; 

PRINT : GOTO 40 
150 IF NCLE)-0 THEN LET A{LE) 
=1: GOTO 180 

160 LET LE-LE+1: LET NtLE}-N(L 
E-i)-l: GOSUB 150 
170 LET LE-LE-1: LET A{LE)-A(L 
E+1)*N(LE) 
180 RETURN 



30 PBINT e6,'CALCUL0 DE FATORIA 

L" 

40 INPUT"DIGITE NUMEHO PARA F 

ATORIAL (1-33 OU PARA SAIR) 

";NU 
50 IF NU>33 OB NUOINT (NU) OB N 
U<0 THEN 20 
60 IF NU-0 THEN END 
70 LE-1:N(LE)-NU:AN-NU 
80 GOSUB 150 

90 PRINT AN'! - " ; A (1) : PRINT:GO 
TO 40 

ISO IF N(LE)-0 THEN A(LE)=»1:G0T 
ISO 

160 LE-LE+1:N{LE)-N(LE-1)-1:G0S 
UB 150 

170 LE'LE-1;A{LE)-A(LE+1)''N(LE) 
180 RETURN 



90 PRINT AH"! = "jAtDi PRINT 

: GOTO 40 

150 IF N{LE) - THEN A(LE> - 

1: GOTO IBO 

160 LE = LE + 1:N(LE) = N (LE - 

1) - 1: GOSUB 150 

170 LE - LE - l-A(LE) 

1) * NCLE) 

180 RETUBia 



A(LE + 



m 
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10 DIM N{34) ,A(34) 
20 CLS 



10 DIM N(34) .A134) 

20 ROME 

30 PRINT TAB( 10}'*CALCULO DE 

FATORIAIS" 

40 PBINT : INPUT "DIGITE NUM 

ERO FATORIAL (1-2 2 OU PAHASAI 

H) ";NU 

50 IF NU > 22 OR NU < > INT 

(NU} OH NU < THEN 20 

60 IF NU = THEN END 

70 LE = 1:N(LE) = NU : AN = NU 

80 GOSUB ISO 



10 DIM Nt34) .A(34) 
20 CLS 

30 PRINT TAB (9) "CALCULO DE FAT 
ORIAIS" 

40 PRINT: INPUT" DIGITE NOMERO 
FATORIAL (1-33 E OU MENOS PA 
RA SAIR) 'jNU 

50 IF NU>3a OR NUOINT (NU) OR N 
U<0 THEN 20 
60 IF NU-0 THEN END 
70 LE=l :N(LE) =NU,:AN-NU 
80 GOSUB 150 

90 PRINT:PR1NT AN;"! = ";AC1):P 
HINT: GOTO 40 

150 IF N{LE)==0 THEN A(LE>-1:G0T 
IBO 

160 LE''LE + 1:N(LE)-N(LE-1)-1:G0S 
UB 150 

170 LE=LE-1:A(LE)-A(LE+1)*N{LE} 
180 RETURN 
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Execute o programa e introduza um 
valor qualquer. Lembre-se de que valo- 
res maiores que 22 nao funcionarao no 
Apple, nem no TK-2000. 

O programa calcula o fatorial do nii- 
mero que voce digitou e o imprime na 
tela. O fatorial de um niimero e o resul- 
tado da multiplicacao, entre si, de todos 
OS niimeros inteiros menores que ele e 
ele mesmo. Por exemplo, 5 fatorial 
{escreve-se 5!) e igual alx2x3x4x 
5, ou seja, 120. O cAlculo de fatoriais 
geralmente e necess^rio em apticaijoes 
estatisticas. Um mdtodo rdpido de exe- 
cuta-lo sera sempre muito titil. 

Inicialmente, o programa dimensio- 
na aJgumas variaveis (linha 10), em nii- 
mero sufictente para gerar o fatorial md- 
ximo. A variavel N tera como I'ndice o 
nivel da recursao (LE) — N(LE}. 

A esjrutura principal do programa 
comega na linha 70, onde o nivel e ini- 
cializado em 1. Nessa mesma linha. o 
niimero que voce introduziu — supo- 
nhamos que seja 5 — e atribuido a N(l) 
e a AN (variavel que uA acumular a res- 
posta). A linha 80 chama entao o pri- 
meiro nivel da recursao. A primeira li- 
nha da retina de recursao (linha 1 50) ve- 
rifica se a tarefa ja chegou ao fim, ou 
seja, se N(LE) = 0. Como N(LE) ainda 
^ 5, o programs passa para a iinha 160, 
que incrementa o nivel (para 2), estabe- 
lece como numero corrente o 4 e chama 
a sub-rotina recursiva mais uma vez. 
Quando a linha 160 incremenSar o va- 
lor do nivel para 6 e decrementar o nii- 
mero corrente para 0, a linha 1 50 detec- 
tari esse ultimo valor atribuindo 1 a 
N(6) e desviando o programa para a li- 
nha 180. Encontrando um RETURN, a 
execucao passara para a linha 170, que 
foi a ultima a chamar a sub-rotina. Es- 
sa linha reduziri o valor do nivel para 
5 e A(5) passard a ter o valor de A(6) 
vezes A(5). Com isso, atribiii-se a A(5) 

valor de 1 X 1 , ou seja, I . A linha 180 
devolve, entao, o controle para o final 
da linha 150, onde A(4) assume o valor 
de A(5) vezes A(4). Desse modo. sera 
atribuido ao nivel da recursao o valor 

1 (calculado acima) vezes 2. 

O lago ira se repetir sempre que o 
GOSUB da linha 160 for chamado, 
Quando o lago estiver complete, LE se- 
ra 1 e o ultimo RETURN apontara pa- 
ra a linha 80. A pr6xima instruijao (ii- 
nha 90) imprimirS entao o resultado: 
120. 



umitacOes 



Alcm do problema com as varidveis, 
que nao ocorre com os procedimentos, 
OS tipos de BASIC com os quais traba- 



Iharaos apresentam uma limita^ao quan- 
to ao numero de vezes que uma sub- 
rotina pode chamar outra. A cada cha- 
mada o sistema precisa guardar ha me- 
moria a posigao de onde ela foi feita, o 
que requer a utilizagao de um pontei- 
ro na pilha interna. E por esse motivo 
que Apple e o TK-2000 nao podem 
calcular fatoriais maiores que 22. Ja o 
limite de 33 niveis para outros micros 
deve-se simpksmente a capacidade de 
armazenamento de niimeros. O fatorial 
de 34 excede 1.7 x 10 T 38, o ma.ximo 
que um computador pode manipular. 



PREVISAO DE ERROS 



Para manter seu programa dentro 
dos liraites do micro c evitar uma "pa- 
ne", voce deve saber como ele se com- 
porta desde o primeiro nivel da recur- 
sao. Em geral, uti!iza-se como teste uma 
informagao inicial que culminara em 
uma resposta jd esperada. Para faciii- 
tar o trabalho, voce pode tamb^m con- 
siderar a roiina recursiva como um cer- 
to numero de sub-rotinas em seqiiencia. 
Note que um desvio condicional para 
fora da sub-rotina e desaconselhavel, 
pois ponteiro que marca a volta do 
GOSUB ficaria desorientado. 

Quando voce estiver escrevendo uma 
sub-rotina recursiva, procure comegar 
sempre com um teste de saida. A fun- 
<ito desse teste e decidir se o problema 
(caracterizado pelos pariraetros iniciais) 
pode ser resolvido diretamente, sem a 
necessidade de subdivisoes. 

Antes de comegar o programa, pla- 
neje com cuidado o que deseja que a 
sub-rotina fafa. E, quando jd estiver es- 
crevendo o programa, nao se preocupe 
com a seqiiencia exata da execugao, le- 
vando em conta apenas dois princi'pios 
basicos: a condifao de saida e a subdi- 
visao em problemas menores. 

Seguindo o metodo aqui apresenta- 
doj voce ser^ capaz de aplicar a recur- 
sao aos seus programas sem maiores di- 
ficuldades. Aqui esta um exemplo de co- 
mo essa tdcnica pode melhora-los,tor- 
nando-os assim mais rdpidos e com- 
pactos. 



10 BOfiDEB 1: INK 7: PAPER 1: 

CLS 

20 PHINT TAB 11; INVERSE 1;" 

ORDENACAO " 

30 INPUT "QUANTOS NUMEROS VOC 

E QUER ORDENAB (1-1000) 

"rA 
40 IF A<1 OB A>1000 THEN 



GOTO 10 

50 DIM A (A): DIM B (2+SQH (A)) 
60 LET A (A) =100: PRINT 
INVERSE 1;'"TABELA DESOBDENAD 
A :"'': FOR K»l TO A-1: LET A 
(K}-INT tRND*99) r PRINT ACK); 
" ' ; : NEXT K 

70 LET L-1: LET LV=1 ; LET R-A 
-1: GOSUB 1000 

80 PRINT INVERSE 1 ; ' ' "TABELA" 
OHDENADA ; " ' ' : FOR K-1 TO A- 
1: PHINT A (K);" * ; : NEXTK 
90 IF TNKEY$<>'' " THEN GOTO 
90 
100 RUN 
1000 IF R>L THEN LET I=L: LET 
J=a+1: LET V-A{L) : GOTO 1010 
1005 RETURN 
1010 LET 1 = 1+1; IF AdXV THEN 

GOTO 1010 
1020 LET J=J-1: IF A(J)>V THEN 

GOTO 1020 
1030 IF J>=I THEN LET T=A<I) : 
LET A(I)=^A(J)r LET A(J)=T: GOTO 

1010 
1040 LET T-A(L) : LET A(L)=A{J): 

LET A(J)«T 
1050 LET B(LU)-R: LET LV-LV+1: 
LET R=J-1: GOSUB 1000 
1060 LET LU-LU-1: LET B-R (LV) : 
LET L-1 : GOSUB lOOO 
10 70 RETURN 



Q 



10 CLS 

20 PRINT 611, 'ORDENACAO* 
30 PRINT: INPUT" QUANTOS NUMEROS 
VOCE QUER OBDENAR (i-lO 
00) "iA 

40 IF A<1 OR A>1000 THEN 10 
50 DIM AfA) ,R{1+SQR(A)) 
60 A(A) -100: PRINT" TABELA DESOH 
DENADA ;":F0H K=0 TO A-1:A[K}=R 
ND(99) :PH1NT A(K) ; :NEXT:PRINT 
70 L=0:R-A-1 iGOSUB 1000 
80 PHINT ' TABELA ORDENADA :-:F 
OR K-0 TO A-1: PRINT A (K);: NEXT 
90 IF INKEYSO" " THEN 90:ELSE 
RUN 

1000 IF R>L THEN I = L : J=>R+1 :V-A( 
L) ELSE RETURN 

1010 I-I+1:IF AdXV THEN 1010 
1020 J-J-1:IF A(J3>V THEN 1020 
1030 IF J>-I THEN T-A(1):A(I)-A 
(J) :A(J.)-T:GOTO 1010 
1040 T-AtL) :A(L)-ACJ) :AtJ]=T 
1050 B(LV)-R;LV=.LV+1 :H-J-1:G0SU 
B 1000 

1060 LV-LV-1:R-RCLV) :L-I .-GOSUB 
1000 
10 70 RETURN 



HIE] 



10 HOME 

20 HTAB dl) : INVERSE : PRINT 
" OBDENANDO NUMEROS " : NORMAL 
30 PRINT : INPUT " QUANTOS NUM 
EROS A SEREM ORDENADOS ? (1-100 
0) ";A 



40 IF A < 1 OR A > 1000 THEN 1 



50 DIM A (A) ,HC1 + SQR (A)) 

60 A (A) - 100: PRINT : PRINT " 

NUMEHOS FOBA DE ORDEM :-";: FOR 

K - TO A - 1:A(K) - INT (99 

* RND {!)) + 1: PRINT ACK) j" 
" ; : NEXT : PRINT 

70L-0:LV-0:R-A-1: GOSU 
B 1000 

60 PRINT • NUMEROS NA ORDEM :- 
-; : FOR K = TO A - 1 : PRINT A 
(K) :" ": : NEXT 
90 GET IS: IF 1$ < > - " THEN 

90 
100 RUN 
1000 IF R > L THEN I = L'J = R 

+ 1:V = A(L) : GOTO 1010 
1005 RETURN 

1010 1=1+1: IF A(l) < y THE 
N 1010 

1020 J = J - 1: IF A(J) > V THE 
N 1020 

1030 IF J > =1 THEN T = ACI) 
:A(I) - A(J):A(J) - T: GOTO 101 


1040 T - A(l.3 :A(L) - A(J):A(J) 
= T 

1050 B(LV) - R:LU - LU + 1:H - 
J - 1: G03UB 1000 
1060 LV » LU - 1:R - R(LV):L = 
I: GOSUB 10 00 
1070 RETURN 



m 



10 CLS 

20 PRINT TA6a03"OBDENACSO DE N 

OMEHOS' 

30 PRINT :INPUT''QUANTOS NOMEROS 

SERRO ORDENADOS (1-1000] " ;A 

40 IF A<1 OH A>1000 THEN 10 

50 DIMAtA) ,RC1+SQHCA)) 

60 A(A)-lOO:PfiINT"NUMEROS FORA 

DE ORDEM:-": FOR K-0 TO A-1:A(K3 

-INT(RND(-TIME)*99)-t-l:PBINT ACK 

) ; :NEXT: PRINT 

70 L-0:LV-0:H-A-1:GOSUB 1000 

80 PRINT" NUMEROS ORDENADOS : ' : FO 

B K=0 TO A-l:PaiNT A(K);:NEXT 

90 IF INKEYSO" " THEN 90 ELSE 

RUN 

1000 IF R>L THEN I-L ; J-H+1 : V=A ( 

L) :GOTO 1010 

1005 RETURN 

1010 1-I+1:IF AdXV THEN 1010 

1020 J-J-liIF A(J)>U THEN 1020 

1030 IF J>-1 THEN T-A(I):A(I)-A 

(J) :ACJ)=T:GOT0 1010 

i040 T-A{L) :A(L)-A{J) :A{J)=T 

1050 R(l.U)-R:LV-LW+l:R-J-l:GOSU 

B 1000 

1060 LU=LU-1:E=R(LV) :L=I:GOSUB 

1000 

107 RETURN 



PHOGRAMA OE ORDENACAQ 



Compare a listagem do metodo de or- 
denavao tipo bolha do artigo da pagina 
468 com esta, que utiliza a recursao. 



Nosso programa nao contem tantos des- 
vios condicionais do tipo [F,,,THEN, 
GOTO..., nem tantas vari^veis. 

Iniciaimente, o programa pede que 
voce introduza a quanlidade de niime- 
ros randomicos que serao ordenados. A 
linha 50 dimensiona a matriz A(A), que 
arraazena esses niimeros, e a matriz R, 
que ird guardar o valor das variiveis du- 
rante processo recursive. A linha 60 
gera e imprime os niimeros rand6micos, 
ainda fora de ordem, e a linha 70 cha- 
ma a sub-rotina recursiva para ordend- 
los, A linha 80 6 respons^vel pela im- 
pressao final. 

O metodo baseia-se na jungao de 
duas listas, ambas previamente subme- 
tidas a uma ordena^ao. A lista princi- 
pal, composta de niimeros randfimicos 
desordenados, e divididaem duas outras 
listas (iinhas 1010 e 1020). Observe que. 
na linha 1000, hi um teste de saida pa- 
ra determinar o fim da recursao. Cada 
uma das listas sofre entao uma ordena- 
tao parcial (linha 1030), sendo poste- 
riormeme reunidas, A sub-rotina ird 
chamar a si mesma (linha 1050) at^ que 
a ordena?ao esteja completa. 

Apesar dos mitodos de ordenagao 
em BASIC nao serem tao ripidos quan- 
to OS que empregam linguagem de ma- 
quina, este programa pode ser muito efi- 
ciente em tarefas menos extensas. Por 
exemplo, a ordena<;ao de cem mimeros, 
no Spectrum, leva mais ou menos 40 se- 
gundos; a ordenagao tipo bolha nos fa- 
ria esperar mais de uma hora. 



APLICACOES 



A uiilidade da recursao vai muito 
alem do calculo de fatoriats e outras 
fungoes matematicas. Ela pode ser apli- 
cada na progpamaijao de jogos e na 
construgao dos mais complexos grafi- 
cos. Essa t^cnica tambem aparece em 
sistemas de inteligencia artificial e no 
controle de robfls, al^m de ser empre- 
gada em processamento de linguagens 
(compiladores e interpretadores), 

Os jogos de estrategia, como o xa- 
drez ou os wargames, constituem uma 
outra drea interessante de aplicagao, O 
programa que apresentamos a seguir usa 
a recursao na simulatjao de um jogo 
cldssico. As Torres de Handi. 



10 BORDER 6: PAPER 6: INK 0: 

CLS 

20 PRINT TAB 8; INVERSE 1 j "D 

TORRES DE HANOILl' 

30 INPUT "DIGITE NUMERO DE 

ANEIS {2-9)n";N: IF N<2 OH N 



>9 THEN GOTO 30 

35 DIM T(3) 

36 LET A$-"B-B": INK 2: FOR M 
-21 TO 21-N STEP -1: PRINT AT 
M,7;A$;AT M,15;AS;AT M,23:AS: 
NEXT M: INK 

37 PRINT INK 2 ; AT 21. 7 ;"■■■" 

;AT 2l.lS:'HHH'';AT zi.zsrHH 

■ " 

38 FOB M=l TO N: PRINT INK 7 
; PAPER 0;AT 20-T(l) . 8 ;N+1-M: 
LET T(l)-T(l)+1: NEXT M 

39 PRINT #1:AT , 3 ; "QUALQUER 
TEC LA PABA COMECAR" 

40 PAUSE 0: PRINT 11; AT 0,3 ; " 

nnDnnaonnaDDDcnnn" 

45 LET TT-2: LET TF=1: LET R" 

3 

50 GOSUB 90 

70 PRINT AT 10,5; "NUMERO DE M 

0UIMENT0S=n-;2*N-l 

80 STOP 

90 IF N=0 THEN RETURN 
100 LET N=N-1: LET «-R: LET R- 
TT: LET TT-W: GOSUB 90: LET W- 
R: LET H-TT: LET TT=W 
110 GOSUB 20 

120 LET W-R: LET H-TF: LET TF" 
W: GOSUB 90: LET W-R: LET R-TF 
t LET TF-W 

130 LET N-N+1: RETURN 
ZOO PRINT AT 20-(T(TF)-lJ ,TF«8 
! "LI" ! INVERSE 1 ;AT 20-CTtTT)), 
TT*8;N+1: LET T CTF) "T(TF) -1 : 
LET TCTT)-T(TT>+1 
210 SOUND .01 ,TT*T(TT) *2 
220 RETURN 

Q 

10 CLS:DIM H{3) 

20 PRINT ee. "TORRES DE HANOI" :P 

BINT 

30 PRINT "NUMERO DE ANEIS {2-9) 

?'; 

40 AS-INKE5fS:IF AS<"2" OR A$>"9 

" THEN 40 

50 N="UALtA3) ;H(0)-N : PRINT «64 

60 FOR K-O TO 8: FOR J-0 TO 2 : PR 

INT #165+K*32+J*9,CHRS(175)+- " 

+CHR$(175) ; :NEXT J,K 

70 FOp K-0 TO 2: PRINT e453+K*9, 

STRINGS (3, 175} ; :NEXT 

BO FOR K-1 TO N:POKE 1478-32*K, 

49+N-K:NEXT 

90 TT-l:TF-0:R-2 

100 GOSUB 1000 

110 PRINT §65. "NUMERO DE MOUIME 

KTOS -";INTt2-N-l) 

120 PRINT" QUALQUER TECLA PARA 

RECOMECAR" 

130 IF INKEXS-"" THEN 130 

140 RUN 

1000 IF N-0 THEN RETURN 

1010 N-N-1:W-H:R-TT: TT-W: GOSUB 

1000:U-R:H-TT:TT-W 

1020 POKE 147e+9*TF-32*HCTF) ,96 

:HCTF)-H(TF)-1:H(TT)-H(TT)+1:P0 

KE I47e+9*TT-32*H(TT) ,49+N 

1030 W-R : R-TF :TF-W: GOSUB 1000 :W 

-R:a-TF:TF-W 

1040 N-N+1: RETURN 



WGRAMACAOSASK 'fSfl 
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10 HOME : DIM T(3) 

20 HTAB (14) : INVERSE : PRINT 

"TORRE DE HANOI": NORMAL 

30 PRINT : PRINT : INPUT ' 

MUMERO DE ANEIS (Z-9): ":N 
40 IF N < 2 OB N > 9 THEN HUN 

50 FOR J « 1 TO 3: INVERSE : V 
TAB (16) : HTAB {J * 10) : PRINT 
J: NEXT : NORMAL 
60 FOR I - 1 TO N: HTAB (10) : 
VTAB tie - I): PRINT N - I: NEX 
T I 



70 


T(l) - 


15 


- N 


T(2) 


= 15 


T(3) 


= 


15 












80 


TT ■= 2 


:TF 


- 1 


R = 


3: GOSUB 1 


10 














90 


HTAB 


tl4) 


: VTAB (20) : E 


RINT 


■'MOVIMENTOS = 


'll 


" N 


- 1 




100 


END 












110 


IF N 


= 


THEN RETURN 




120 


N = N 


- 1 


:U = 


R:R 


^ TT: 


TT = 


y 

130 


GOSUB 


110 


:W = 


R:R 


= TT: 


TT » 


GOSUB 160 




- 




140 


W = R 


a = 


TF: 


TF - 


H: GOSUB 


no 


:W - R 


R - 


TF: 


TF ' 


U 




150 


N ° N 


+ 1 


RETURN 






160 


T(TF3 


- T(TF) 


+ 1 


HTAB 


(TF 


* 


10) : VTAB 


(T(TF)) : 


PRINT 


M tt 



170 HTAB (TT * 10): VTAB (T (TT 
)): PRINT N:T(TT) - T(TT) - 1 
180 RETURN 



flffi 



10 KEY OFF:CLS:DIM T(3) 

20 PRINT TAB<13) "TORRE DE HANOI 

m 

30 PRINT: PRINT: INPUT" NOMEBO DE 

ANSIS (2-9) : "jN 
40 IF N<Z OR N>9 THEN RUN 
50 FOR I-l TO N: LOCATE 10,16-1: 
PRINT N-I:NEXT I 
60 T(1)-15-N:T(2)-15:T(3)-15 
70 TT-2:TF-l:R-3:GOSUB 100 
80 LOCATE 14, 20: PRINT" MOUIMENT 
0S-":2-N-l 
90 END 

100 IF N-0 THEN RETURN 
110 N-N-1:W-R:H-TT:TT-W:G0SUB 1 
0O:W-R:a-TT:TT-M 
120 GOSUB 150 

130 W-B:R-TF:TF-W: GOSUB lOOrW-H 
:R-TF:TF-W 
140 N-N+1: RETURN 

150 T{TF)-T(TF)+1: LOCATE TF*10, 
T(TF): PRINT" " 

160 LOCATE TT*10',T(TT) -PRINT N: 
T(TT)-T(TT)-1 
170 RETURN 



Quando o jogo come?a, vArios discos • 
de diajnetros diferentes acham-se empi- 
Ihados sobre a primeira de trSs varetas 
montadas sobre o tabuleiro. O objetivo ' 
^ passar todos qs discos para a segunda 



vareta, movendo um por vez e sem dei- 
xar um disco maior sobre um menor, A 
terceira vareta serve como apoio tempo- 
reino durante o processo. 

O computador mostrard uma simu- 
lagao animada, pedindo, inicialmente, 
o numero de discos que sairao da pri- 
meira vareta. A transferencia destes se- 
ri bastante rdpida, o que dificuJta a vi- 
sualizagao dos movimentos. Caso quei- 
ra observar melhor o processo, faija as 
modifica?5es que se seguem. Para o 
Spectrum, introduza esta linha: 

215 PAUSE 

Para o TRS-Color, adicione este co- 
mando ao final da linha 1020: 

: SOUND 50+H{TT)*10,12 

No Apple e no TK-2000, acrescente: 

175 FOR I'l TO aOO;NEXT 

Para o MSX, adicione esta linha: 

165 BEEP: FOR I"l TO 800: NEXT 

O programa e semelhante aos ante- 
riores. A rotina recursiva executa cada 




As Torres de Hanoi e seus nove discos. 

movimento sucessivamente, at^ que to- 
dos OS discos estejam na segunda vare- 
ta. No fim, o computador tambem exi- 
be o total de movimentos rcalizados. 
Apesar de poderosa, a recursao po- 
de ser inconveniente quando ha uma 
grande limitacao de memoria, rouban- 
do mais espafo e mais tempo do que o 
necessario. Porem, se nao ha tal impe- 
dimento e se em seu programa uma sub- 
rotina e chamada mais de duas vezes, 
procure aperfeigoa-lo com essa tecnica. 




\f47wmmwsmjr 



nil 




CHE: 



Nem tudo e desastre no caminho 
de Willie. Para que nao se desespere 
totalmente, as vezes e recompensado, 
conseguindo chegar ao topo da 
montanha e recuperar seu lanche. 



Nenhum outro aventureiro conheceu 
tantos infortiinios quanto Willie. Nos- 
so personagem ja experimentou ate a 
morte e a descida para o inferno. Mere- 
cc, agora, uma recompensa; finalmen- 
te, ele conseguira alcan^ar o topo da 
montanha e recuperar mais uma parte 
do lanche perdido, conquistando, assim, 
alguns pontes no placar. 



A pequena rotina inicial executa a 
melodia da recompensa, coloca Willie 
no proximo nivef, aumenta a velocida- 
de do jogo e incrementa o placar. 



10 


REM 


org 597B8 


20 


REM 


rwd Id de,523 


30 


ElEtl 


Id hi ,606 


40 


REM 


call 949 


50 


BEM 


Id a, (57344) 


60 


REM 


mc a 


70 


REM 


reg 2, a 


80 


REM 


Id (57344). a 


90 


REM 


Id a. {5B73Z) 


100 


HEM 


dec a 


HO 


REM 


Id (58732), a 


120 


REM 


Id a,Z 


130 


HEM 


Id b,5 


140 


REM 


call 59900 


150 


REM 


jp S8601 



As tres primeiras instrugoes, encar- 
regadas da musica, usam a rotitia BEE- 
PER no endere?o 949 da ROM. Os pa- 



rametros da duracao e da tonalidade sao 
fornecidos pelo metodo usual, atraves 
dos pares de registros DE e HL. 



NiVEL DO JOGO 



O nivel de dificuldade do jogo i car- 
regado da variavel correspondente, em 
57334, para acuraulador, O conteiido 
do acumulador e em seguida incremen- 
tado. Precisamos, porem, impedir que 
seu valor seja maior do que 3, ja que 
existem so quatro niveis de dificuldade. 
Para isso, usamos a instrufao res 2, a 
que ajusta com o bit 2 do acumula- 
dor. Quando o valor desle chega a 4, o 
bit 2 e colocado em 0. O conteudo do 
acumulador volta, assim, a 0, trazendo 
o jogo para o primeiro nivel. 

O resultado dessa operagao e arma- 
zenado no endere?o 57334, onde sera 
Litilizado ao se ajustar o jogo. 



A VELGCIDADE 



O valor do atraso do jogo — que fi- 
ca no endere^o 58732 — e carregado no 
acumulador, decrementado e armazena- 
do de volta em 58732. Aceleramos, as- 
sim, o Jogo, uma vez que o tempo gas- 
to pelo processador no lago de atraso da 
rotina principal diminui. 

O atraso foi originalmente ajustado 



com 50. Como Willie nao chegara a re- 
compensa mais do que ctnqiienta vezes, 
o jogo se tornara cada vez mais rapido 
— e, portanto, mais dificil. Cada vez 
que vocS enfrentar os mesmos quatro ni- 
veis, eles esiarao mais rapidos. 



CONTAGEM OE PONTOS 



Por ter alcan(;ado o premio, Willie re- 
cebe mais 500 pontes. Para isso, chama- 
mos a rotina do escore no endereijo 
58900 e fornecemos os parametros nos 
registros A e B. 

O valor 2 colocado em A especifica 
o segundo digito a partir da esquerda — 
o das centena.s — , que sera incrementa- 
do. O valor 5 em B informa a rotina o 
niimero de vezes que esse digito deve ser 
aumentado. Incrementando as centenas 
cinco vezes, acrescentamos 500 pontos 
ao escore. 

Em seguida, o processador volta pa- 
ra a rotina de nova vida — rotulada nlv 
— , em 58601, e coloca nosso persona- 
gem na base da encosta. 



PLACAR 



A pequena rotina apresentada a se- 
guir acerta o placar de Willie quando ele 
alcanna uma recompensa ou escala uma 
outra parte da encosta. 
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NIVEL DE DIFICULDADE 



FUNDO MUSICAL 



ACELERACAO DO RITMQ 
DO JOGO 



WILLIE ALCANCA 



llllilll 



PREMIO 



CONTAGEM DE PONTOS 



EXIBICAO DO PLACAR 



ALTERACAQ DOS DIGITOS 
DE VDLTA AO SOPE 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

ISO 

190 

200 

210 



REM 
REM 

REM 
REM 
HEM 
REM 
REM 
REM 
HEM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
HEM 
REM 
HEM 



org 59900 

sen Id iJt, 57337 

Id d,0 
Id e, a 
add IX, de 
scr push IX 
call sdi 

pop IX 

djnz acr 

call 58939 

ret 

9di Id a, (lx+0) 

inc a 

cp 10 

jr nz,ano 

Id a.O 

Id Cix+0) ,a 

dec IX 

jr sdi 

ano Id (ix+O ) , a 

ret 



cializagao dada no artigo da pagina 995 . 
O registro D e carregado com e E, com 
o conteudo do acumuiador. Lembre-se 
de que o acumuladur carrega o niimero 
de coiuna quando o processador entra 
nesta rotina. 

O conteiido do par DE e adicionado 
ao conteudo de IX e o resultado penna- 



A posicao de memoria 57337 corres 
ponde ao inicio da variavel do escore 
que e carregada com pela retina de ini 




30 



nece em IX. Isso faz com que o aponta- 
dor de dados percorra os digitos arma- 
zenados a panir de 57337, ate chegar ao 
especificado peio conteiido de A. A po- 
sifSo e temporariamente armazenada, 
colocando-se o conteiido de IX na pilha. 
A rotina sdi e chamada. 



ALTERANDO OS OtGITOS 



A rotina sdi e a que trara dos digitos. 
Ela comeca carregando o acumulador 
com o digilo apontado por IX. O des- 
locamento do e necessario aqui por 
causa do formato da instrugao. 

O digito e entao tncrementado e com- 
parado com 10. Se ele for 10, sera pre- 
cise incrementar tambem no proximo 
digito. Caso contrdrio — ou seja, ."ie o 
primeiro digito ainda nao foi incremen- 
tado ate 10 — , a instruijao jr ni manda 
processador para o r6tulo sno, que 
volta a armazenar o digito incrementa- 
do na posi(;ao de onde veio. 

Se o digito que voce esti alterando foi 
incrementado ate 10, o salto nao ocor- 
re e o processador continua com a pr6- 
.■dma instru^ao. O valor e armazena- 
do no digito apropriado. Em seguida, 
IX e decrementado, passando a apon- 
tar para o digito imediatamente a es- 
querda. A instrucao jr sdi manda entao 
o processador de volta para sdi, inician- 
do novamente a rotina de incremento no 
prdximo digito. 

Se este foi incrementado ate 10, o 
processador continua no la?o. Mas, ce- 
de ou tarde, um digito que nao chegou 
a 10 sera encontrado. O processador ira 
entao para sno, armazenando o ultimo 
digito e retornando para o lugar da ro- 
tina scr de onde sdi foi cliamada. 



MAIS PLACAR 



Quando o processador retorna da ro- 
tina, o apontadorIX e recuperado da pi- 
lha outra vez. Voce pode agora perce- 
bcr por que precisamos armazend-lo ali: 
se o digito foi incrementado atdlO, sdi 
tera deslocado o apontador IX para o 
digito seguinte; caso voce tente incre- 
ment^-lo mais uma vez, itA alterar o di- 
gito errado. 

O lapo desta parte da rotina e fecha- 
do por uma instru^ao djnz, que decre- 
menta o conteiido de B at^ zera-lo, Co- 
mo vocS deve se lembrar, B carrega o 
niimero de vezes que o digito do escore 
tern que ser incrementado quando o pro- 
cessador entra na rotina. 

O processador continua no la?o atua- 
lizando o escore o niimero de vezes ini- 
cialmente especificado por B, Quando 
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B chega a 0, a rotina de impressao em 
58939 e chamada, imprimindo o novo 
escore na teia. 

Em seguida, o processador retorna. 



Esta pequena rotina executa a meio- 
dia da recompensa, coloca Willie no 
proximo nivel, aceEera o jogo e acrescen- 
ta pontos no placar. 



tt 



10 
20 

30 
40 
50 
60 
70 



ORG 

RUD 

LDX 

JSR 

LDA 

I MCA 

ANDA 



20721 
LDA «25S 

• 150 

SOUND 

18238 

• J 



80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

65 

660 



STA 18238 
DEC DLL+1 

LDB 15 

LDA 13 

JSR SCI 

LBRA NLU 

SCI EXG A. 8 

SCT LDX #16240 

ABX 

PSHS A,X 

JSR SDI 

PULS A.X 

DECA 

BNE SCT 

JSa PRSC 

RTS 

SDI LDA.X 

INCA 

CMP A #10 

BNE SNO 

CLR ,X 

LEAX -l.X 

BRA SDI 

SNO STA .X 

RTS 

SOUND PSHS A 

LDA SFFOl 

ANDA 1247 

STA SFFOl 

LDA $FF03 

ANDA t247 

STA SFF03 

LDA $FF23 

ORA #8 

STA SFF23 

ORCC IS50 

PULS A 

PSHS X 

LDB #252 

SBN STB SFF20 

SC LEAX -1,X 

BNE SC 

LbX.S 

CLR SFF20 

SD LEAX -l.X 

BNE SD 

LDX .S 

DECA 

BNE SBN 

ANDCC tSAF 

PULS X 

BTS 

CLICK LDX #98 

LDA 14 

JSR SOUND 

RTS 

DLL EQU S51ED 

NLU EQU $4BF7 

PRSC EQU $4C7 7 



As tres pnmeiras instru^oes, encar- 
regadas da musica, usam a rocina 
SOUND, chamada pela linha 40. Os pa- 
rametros da duracao e da tonalidade sao 
fornecidos pelo metodo usual, atrav^s 
de niimeros carregados em A e X. 



Niva DE DIFICULDADE 



A e carregado com o conteudo de 
( 8238, a posicao de armazenamemo do 



nivel de dificuidade. Esse valor e incre- 
menlado e a opera? ao AND € feita com 
o niimero 3. Apagamos, assim, os seis 
bits mais signifjcativos e evitamos que 
o nivel do jogo ultrapasse o valor 3. O" 
resultado e armazenado de volta na po- 
si?ao 18238. 

Em seguida, a varidvel na posiijao de 
memoria $5 1 EE e decrementada e o jo- 
go se torna urn pouco mais rapido. 

Para atualizar o escore, carrega-se 5 
em B e 3 em A; a rotina SCI, fornecida 
a seguir, e entao chamada. B carrega o 
niimero de vezes que o di'gito sera incre- 
mentado e A identifica esse digito. Desta 
vez, portanto, acrescentamos 500 pon- 
tes ao escore. 

Finalmente, o processador volta pa- 
ra a rotina NLV, que ira colocar o pro- 
ximo nivel na tela. 



CALCULO DO PLACAR 



Para serem utilizados na proxima ro- 
tina. OS conteiidos dos registradores A 
e B precisam ser trocados. Isso e feito 
pela instru^ao EXG. X e eniao carrega- 
do com 1 8240, o endereto inicial dos va- 
lores do escore. 

ABX adiciona a X o conteijdo de B 
— que € o numero do digito a ser incre- 
mentado. Em outras palavras, essa ins- 
trugao desioca o apontador em X, que 
estava no inicio dos dados do escore, pa- 
ra a posif^o do digito que se pretende 
incrementar. O conteiido de A (o niime- 
ro de vezes que o digito sera incremen- 
tado) e o de X (a posi?ao de memoria 
desse digito) sao coiocados na pilha de 
maquina. Em seguida, o processador 
salta para a sub-rotina SDI que executa 
incremento. Os conteiidos de A e X 
sao recuperados da pilha. 

A e decrementado e, se nao tiver che- 
gado a 0, a instrugao BNE SCT manda 
o processador coniinuar no laco. A ro- 
tina de incremento do digito e executa- 
da A vezes, incrementando o digito 
apropriado a cada volta do iapo. 

Com A reduzido a e o escore acer- 
tado, o processador sai do la^o e vai pa- 
ra a rotina PRSC, que imprime o resul- 
tado na tela. Depois disso, o processa- 
dor encontra RTS e retorna para a roti- 
na principal. 



ALTERANDO OS DIGITOS 



A e carregado com o conteudo da po- 
sifao de memoria apontada por X. Es- 
te corresponde ao numero contido no di- 
gito apropriado do escore. 

O niimero e incremeniado e o resul- 
tado e comparado com tO. Se ainda nao . 
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for igua] a 10. a instrugao BNE coloca 
o processador no rotulo SNO, que vol- 
ta a armazenar o di'gito que foi incre- 
mentado no enderego apontado por X. 
O processador retorna. 

Se o resultado for igual a 10, o digi- 
to apontado por X e ajustado com — 
ou seja, e limpo. X e entao decremen- 
tado, fazendo o apontador se mover pa- 
ra o digito tmediatamente k esquerda. 

BRA SDI manda o processador de 
novo para o la^o de incremento de di'gi- 
to. Depois que o proximo digito e incre- 
mentado, verifica-se se ele ultrapassou 
o valor 9. Encontrando urn digito que 
nao exceda o valor maximo, o proces- 
sador o armaxena na posigao apontada 
por X. Observe que, ao voltar da roti- 
na de escore, o processador recupera o 
valor de X da pilha. 

A rotina SOUND trabalha exatamen- 
te do mesmo modo que a rotina encar- 
regada de executar Greenleaves, Porqm, 
toca apenas uma vez e usa a pilha como 
fonte de dados. 

Depois de SOUND, ha uma outra pe- 
quena rotina chamada CLICK. Ela exe- 
cuta a trilha sonora da caminhada de 
Willie, carregando os parametros em X 
e A e chamando a rotina SOUND. 

Para testar a rotina, use as tecias M 
e N e este programa em BASIC. 

10 POKE 3000,37 

20 EXEC 19426 

.10 EXEC 1990Z 

40 GOTO 30 



Esta pequena rotina coloca Willie no 
nivel seguinte, aumenta a velocidade do 
jogo e acrescenta os pontes ganhos ao 
placar. 

10 org 55506 

20 Id a, <-5228} 

30 Inc a 

40 res 2. a 

50 Id (-5229). a 

60 Id a, (54133) 

70 dec a 

80 Id (54133), a 

90 Id a, 2 

100 id b,5 

110 call 55532 

120 jp 53868 



NJVEL DE DIFICULDADE 



O nivel de dificuldade do jogo e 
transferido da variavel equivaknte em 
- 5228 para o acumulador. A seguir, o 
conteiido desse e incrementado. Como 
existem apenas quatro niveis qo- 
jogo, o valor dessa varidvel nao deve 



ultrapas.sar 3, Para evitar que isso 
ocorra, utilizamos a instrugao res 2, a, 
que ajusta com o bit 2 do acumula- 
dor. Assim, quando o valor incremen- 
tado chega a 4, bit 2 e ajustado com 
0. O conteiido do acumulador volta, en- 
tao, a 0, colocando o jogo novamente 
no primeiro nivel. 

O resultado dessa operagao e arma- 
zenado em - 5228, onde o novo valor 
sera utilizado no controie do jogo. 



VELOCIDADE 



O atraso do jogo em 54133 e cotoca- 
do no acumulador, decrementado e ar- 
mazenado de volta em 54133. Isso ace- 
lera o jogo, ja que o tempo gasto pelo 
processador no laco de atraso da rotina 
principal diminui. 

Como voce poderi verificar na ulti- 
ma rotina da sene Avalanchet esse atra- 
so foi originalmente ajustado com 50. 
Assim, sempre que aumenta o mimero 
de pontos no placar, o jogo se torna 
mais rapido e dificil. Cada vez que vo- 
ce enfrentar os mesmos quatro niveis, 
a velocidade sera maior. 



CONTAGEM DOS PONTOS 



Por ter alcanijado o premio, Willie re- 
cebe mais 500 pontos. Para isso, chama- 
mos a rotina de contagem e fornecemos 
OS parametros nos registros A e B. O va- 
lor 2 colocado em A especifica o segun- 
do digito a part-ir da esquerda — o das 
cenienas ■ — , que sera incrementado. O 
valor 5 em B informa a rotina o nijme- 
ro de vezes que esse digito deve ser au- 
mentado. Incrementando as centenas 
cinco vezes, acrescentamos 500 pontos 
ao escore. Em seguida, o processador 
vai para a rotina principal do jogo. em 
53888, e coloca Willie na base da 
encosta. 



PLACAR 



A pequena rotina que se segue aqer- 
ta OS pontos de Willie quando ele alcan- 
na uma recompensa ou escala uma par- 
te da encosta. 



130 or? 55532 

140 po Id hi ,-5219 

150 Id d,0 

160 Id e.a 

170 add hl,de 

180 pd push hi 

190 call sd 

20(3 pop hi 

210 djnz pd 

220 call 54023 

230 ret 

240 3d Id a, (hi) 

250 inc a 

260 cp 10 

270 jr nz , an 

28 Id a,0 

290 Id (hi), a 

300 dec hi 

310 j r ad 

320 an Id (hi) .a 

330 ret 

340 end 

A posifao de mem6ria - 5219 corres- 
ponde ao enderego inicial das variaveis 
que contem os digitos do escore, carre- 
gadas com pe!a rotina de inicializa?ao 
dada em artigo anterior. O registro D e 
carregado com e o registro E, com o 
conteudo do acumulador. Lembre-se de 
que o acumulador carrega o niimero do 
digito quando o processador entra nes- 
ta rotina. 

O conteudo do par DE e somado em 
HL. A operacao faz o apontador de di- 
gitos percorrer as variaveis onde seus va- 
lores esiao armazenados, a partir de 
- 5219, ate o digito indicado pelo con- 
teiido de A. O conteudo de HL e colo- 
cado na pilha, onde ficara temporaria- 
mcnte armazenado, e sd e chamada. 



ALTERANDO OS DIGITOS 



A rotina sd, que trata dos digitos, co- 
me?a carregando o acumulador com o 
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valor do d{gito apontado por HL. Este 
e incrementado e comparado com 10. Se 
for igual a 10 ^ ou seja, se ultrapassou 
o maior valor de um digiio decimal, 9 
— , sera preciso incrementar o proximo 
digito. Se o digito analisado ainda nao 
ultrapassou 9, a instru?ao jr nz manda 
o processador para o rotulo sn, que ar- 
mazena seu valor na variivel corres- 
pendente, 

Quando o digito que est^ sendo alte- 
rado chega a 10, o salto nao ocorre c o 
processador continua com a proxima 
instrufao, O valor e armazenado nes- 
se digito e o par HL e decrementado, 
passando a apontar para o digito ime- 
diatamente a esquerda. A instruijao jr 
sd manda o processador de volta para 
sd e a rotina de incremento recome^a pa- 
ra o proximo digito. 

Se este tambem ja ultrapassou 9, o 
processador continua no la<;o. Mas, ce- 
de ou tarde. um digito que nao chegou 
a 10 sera encontrado, O processador iri 
entao para sn, armazenando o liltimo di- 
gito e retornando para o lugar da roti- 
na pd de onde sd foi chamada. 



MAIS PLACAR 



Quando o processador retorna da ro 
tina, o apontador HL e recuperado da 
pilha. Voce pode agora perceber por que 
precisamos armazena4o ali: se algum df- 



gito foi incrementado ate !0, a rotina sd 
tera deslocado o apontador. Caso nao 
tivesseraos armazenado o valor inicial 
na pilha, desta vez estarfamos aiteran- 
do digito errado. 

O lafo e fechado por uma instrufao 
djnz, que decrementa o conteiido de B 
ate zerar esse registro. Como voce deve 
se lembrar, B carrega o niimero de ve- 
zes que o digito do escorc tem que ser 
incrementado quando o processador en- 
tra nesta rotina. 

O processador continua no lago pd 
atualizando o escore o niimero de vezes 
inicialmente especificado por B. Quan- 
do B chega a 0, a rotina de impressao 
dos digitos em 54023 e chamada, impri- 
mindo o novo escore na tela. 

Em seguida, o processador retorna, 



./ 





INPUT apresenta, finalmente, um jogo 
de computador projetado para varies 
participantes. Reuna a familia e os 
seus amigos e role os dados nesta 
brincadeira de sorte e de pericia. 



Ale aqui, a maioria dos jogos de IN- 
PUT — sejam os de aventura, eslrate- 
gia ou videogame — basearam-se no 
confronto computador-usuario. A 
maior dificuldade nesse tipo de disputa 
estava, como vimos, na cria(;ao de re- 
gras e situacoes que sitTiLilassem desafio 
ou, no caso dos jogos de estrategia, na 
transformagao do computador em um 
adversirio inteligeme e de bom m'vel. O 
jogo que apresentamos neste artigo e di- 
ferente: o confronto pode se dar entre 
ate seis jogadores. O computador nao 
participa como adversario — cabe-lhe 
apenas conferir as regras e manter o pla- 
car. A maquina evita, assim, que alguem 
trapaceie, e, o que € melhor, libera os 
jogadores da contagem do placar^ pos- 
sibilitando que se concentrem s6 nas 
questoes estrategicas. 

Este jogo nao passa de uma versao 
computadorizada do famoso Yaich^ ou 
poquer com dados. Combinando sorte 
e estrategia, e rnuito absorvente, mas 
suas regras sac simples, parecidas com 
as do poquer. Cada participante lem di- 
reito a jogar cinco dados de uma s6 vez 
(no nos.50 caso, o computador Simula qs 
dados rolando). Se o jogador nao esti- 
ver satisfeito com o resultado obtido, 
podera lanv'ar os dados mais duas vezes 
(num total de tr€s jogadas).. Na segun- 
da e lerceira jogadas, e permitido esco- 
Iher quais dentre os cinco dados serao 
langados novamente, para que se con- 
siga a melhor "mac" possivel, Depois 
do terceiro langaraento, o jogador deve 
indicar o grupo do placar no qual sua 
combinagao de dados vai ficar (cada 
grupo podera ser usado apenas uma 
vez). A partida continua, entao. com o 
proximo jogador. 

Os grupos de placar sao; 

GRUPO PONTOS 

UM soma dos 1 obtidos 

DOIS soma dos 2 obtidos 



SEIS soma dos 6 obtidos 

FULL HOUSE soma dos cinco dados 
CURTO 15 

LONGO 30 

MISTO soma dos cinco dados 

,jjt YATCH 50 



Um CURTO e uma combinavao de 
quatro dados em seqiiencia (1,2,3,4 ou 
2,3.4,5) e um LONGO, uma comblna- 
cao de cinco dados tambem em seqiien- 
cia (1,2,3,4,5 ou 2,3,4,5,6). Um FULL 
HOUSE comp6e-se de uma trinca c um 
par (5,5,5,1,1, por exemplo). enquanto 
um MISTO, como seu proprio nome 
diz, aceita qualquer Lipo de combinagao 
de dados. O YATCH, finalmente, e o 
grupo formado por cinco dados tguais. 

O resultado obtido numa jogada de- 
ve ser colocado num dos grupos. 
Lembre-se de que so se pode indicar ca- 
da grupo uma vez. Para selecionar o 
grupo e executar a escolha usam-se as 
setas e a barra de espago. 

Muitas vezes nao e possivel obter 
uma combinatao de dados que satisfa- 
(ja um dos grupos vazios (os grupos 
cheios nao podem ser utilizados nova- 
mente). Neste caso, a linica op^;ao e sa- 
cri ficar um dos grupos vazios — de pre- 
ferencia, um dos que rendem menos 
pontos — , eliminando-o. A melhor es- 
trategia, portanto, e preencher primei- 
ro OS grupos que rendem mais pontos — 
que sao tambem os mais dificeis — evi- 
tando-se que venham a ser sacrificados. 

O programa esta dividido em tres 
partes principals: rotina de inicializa;;ao, 
la(;o-mestre e rotinas chamadas pelo 
laco-mestre. 



INICIALIZACAO 



Esta parte do programa configura os 
UDG (graficos definidos pelo usuario) 
que representarao os dados na tela (me- 
nos nos micros das linhas Apple e 
TK-2(XX)), inicializa as variaveis e arma- 
zena os nomes dos jogadores. 



f^ 



10 CLS:XS=CHfl3{13)+CHR3(10) tDIM 

DS{6,4) 

20 F0RK-lTO6;F0RJ-lT03:F0BL«lT0 

3 :REW>A:DS (K, J) -DS (K. J] +CHRS (1) 

+CHR3(219-145*A) : NEXT : NEXT: NEXT 

30 DATA 0.0,0.0,1,0,0,0.0 

40 DATA 1,0,0,0.0,0,0,0,1 

50 DATA 1,0,0.0.1,0,0,0,1 

60 DATA 1,0,1,0,0.0,1.0,1 

70 DATA 1,0,1,0.1,0,1,0,1 



80 DATA 1,0,1,1,0.1,1,0,1 

as LOCATE?, 10 :PaiNT"Quantoo JOQ 

adores (l-6>?'; 

90 AS-INKEYS!IFA5<"1" OB AS>"6* 

THEN90 

100 PRINTA$:NP-UAL(A$) :CLS 

110 FORN-lTONP:PRINT"nQBe do jo 

gador'jN; :INPUTNS{N] :NEXT 

120 CLS:CLS'=3TRING3(35," ") 

130 DmO(NP.12) ,P{NP,12) ,S(NP,l 

0) 



HIE] 

10 HOME 
20 CLS ■ 



DIM A$(12} 



30 FOB T »= 1 TO 6t READ A9:DC3 

(T) - AS: NEXT 

40 FOR T = 1 TO 12 

50 READ AS:AS(T) - A$ + LEFTS 

(" ".12 - LEN CAS) 

) : NEXT 

60 VTAB <10): PRINT TAB ( 10); 

"QUANTOS JOGADORES Cl-6)?': 

70 GET AS: IF A$ < "1" OR AS > 

"6" THEN 70 
80 NP - VAL CASl : PRINT NP : DI 
M NS(NP) .SC(NP) .0(NP,12) ,P(NP,1 
2) ,S(NP,10) 

90 HOME : FOR N - 1 TO NP : PHI 
NT TABt 1)1 "NOME DO JOGADOR "; 
N ■ " ■ " 1 

lOO INPUT NS(N); NEXT 
1170 DATA <1>,<2>,<3> 
lieO DATA <4>,<S>,<6> 
1190 DATA UNS.DOIS.TRES.OUAT 
R0S,CINCOS,SEIS,4 IGUAIS 
120 DATA CASA CHEIA. CURTO . L 
ONGO, Ml 3T0, YATCH 



20 LET Q3»". ...... ": LET 

23=" ": DIM 0(13) : 

FOB N»l TO 13: READ C(N): 

NEXT N: DIM Tt5): DIM B(5}: 

DIM D(5) 

30 FOB N-USR "A" TO USB "G"*? 

: READ A: POKE N,A: NEXT N 

40 DATA 2,3,4.5,6.7,11,14,17, 

20. 2 3.2 5. 2 7 

50 DATA 0,0,0,24.24.0,0,0 

60 DATA 0,6.6,0,0.96,96,0 

70 DATA 3.3,0,24.24.0,192,192 

80 DATA 0,102,102.0,0.102,102 

.0 

90 DATA 195,195,0,24.24,0.195 

,195 



45 PROGRAMACAODEJOGOS 45 



AS REGRAS DO JOGO 



A ESTRATEGIA 



GRUPOS DE PLACAR 



UDG DOS DADOS 



LACO-MESTRE 



ROLANDO OS DADOS 



PLACAR 



IMPRESSAO 



DO ESQUELETO 



RESULTADO FINAL 



100 DATA 102.102,0.102,102,0, 

102,102 

110 DATA 0.24.48,96.255,96.48. 

24 

120 PRINT AT 10,13j"yATCH": 
INK 1: PRINT AT 12 . 7 ; -QUANTOS 
J0GADOHE3"' 'TAB 11;"(1 A 6)" 
130 INPUT NP: LET NP-INT (NP) ; 
IF NP<1 OR NP>6 TBEW GOTO 130 
140 DIM OtNP,12): DIM PCNP.12) 
: DIM S(NP,5); DIM N$<NP,6): 
DIM Q(NP) 

150 FOR N-1 TO NP: CLS : PRINT 
AT 8.5;"JOGADOR " ; (N) ; " . " ' ' TAB 
5;'QUAL E SEU NOME 7": INPUT 
WS: IF LEN US>6 THEN LET WS- 
WS( TO 6) 

160 LET N3{N)=25( TO 3- {LEN V$ 
)/2)+WS: NEXT N 

D 

10 CLS:XS»CHRS{133 :DIM DS(6,4) 

20 FOR K-1 TO 6: FOR J-1 TO 3 : FO 

R L-1 TO 3: READ A: D3 (K, J) -DS (K, 

J)+CHR$C128+65«A) jNEXT 

30 DS{K,J)-DS(K.JJ+CHRS £133) :NE 

XT 

40 DS(K,J)-STRING${3.131)+CHRS( 

135) rNEXT 

SO DATA 0,0.0,0.1.0,0,0,0,1,0.0 

,0,0,0.0,0,1 

60 DATA 1.0,0.0.1,0,0.0.1.1.0.1 

,0.0,0.1.0.1 

70 DATA 1,0,1,0,1.0,1,0.1,1,0.1 

,1,0,1,1.0,1 

80 PRINT; PRINT'QUANTOS JOGADORE 

S (1-6) ?"; 

90 A$-lNKEyS;IF AS<"1" OR AS>''6 

• THEN 90 

100 PRINT A$:NP-UAL(A$) :CLS 

110 FOR N-1 TO NP: PRINT §65. "JO 

GADOR"':N: PRINT" QUAL E SEU NOME 

7": INPUT N$(N) 
120 CLS: NEXT 

130 DIM 0{NP,12) .P(NP.12) .S(NP, 
1*) 



LACO-MESTRE 



A estrutura do jogo e bem simples, 
e consiste nestas poucas linhas: 



m 



14 FOaR=lT05:FOBI-lT012:FOR«-l 

TONP 

150 CLS:Y-2:GOSUB980:GOSUB190 



170 CLS:GOSUB350;CLS;NEXTN,I 
180 CLS:GOSUB990:NEXTR:END 
980 L0CATE19-LEN{NS{M))/2,y:PRI 
NTNS(N) : RETURN 



HE] 



N 



140 FOR R = 1 TO 5: FOR I ■= 1 

TO 12: FOR N = 1 TO NP 

150 HOME :y - 2: GOSUB 980: GO 

SUB 190 

170 HOME : GOSUB 350: HOME 

EXT N,I 

180 HOME : GOSUB 990: NEXT R: 

END 

980 HTAB (19 - LEN (NS(N)) / 

2): UTAB (Y) : PRINT N$ (N) : RETU 

RN 



170 FOR R=l TO 5: FOB 1=1 TO 

12: FOR N=l TO NP 

180 BORDER 4: INK 0: PAPER 4; 

CLS ; PRINT AT 3,13;NS(N) 

190 FOB M-5 TO 27: PRINT 

PAPER 0;AT 5.M:' " ; AT 19, M:" " 

: NEXT M 

2 00 FOR M-6 TO 18: PRINT 

PAPER 0;AT M,5:" "lAT M.27{- " 

: NEXT M 

210 GOSUB 240: PAUSE 0: GOSUB 

430 
230 NEXT N: NEXT I: GOSUB 1290 
: NEXT a: STOP 



D 



140 FOB R-1 TO S:FOH I-l TO 12; 
FOR N-1 TO NP 
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150 CLS:«-6:Y-2:G0SUB 980:OO8UB. 

190 
160 SOUND 50, 3: FOB E-1 TO SOO:N 
EX'f 

170 CLS:GOSUB 350:CLS:NEXT N,I 
IBO CLS:GOSUB 990: NEXT [l:END 
9870 PRINT ey*32+W-((LEN(NS{N)) 
)/2) ,N${N) : RETURN 

O la?o-mestre comp6e-se de tres la- 
^os encadeados (um dentro do outro) 
que controlam o jogo. R e o niimero da 
partida; I, o numero de jogadas dentro 
de uma partida « N, o numero de joga- 
dores. As retinas chamadas por esse la- 
(;o fazem os dados roiar e apresentam 
OS placares parcial e final. Todos os mi- 
cros, mcRos o Spectrum, chamam uma 
pequena rotina para ceniralizar os no- 
mes na tela, Asrotinas chamadas pelo 
lafo-mestre tambem sao subdivididas, 
como veremos a seguir. 



OS DADOS VAC ROLAR 



A primeira dessas rotinas rota os da- 
dos, exibe-os na tela e chama duas ou- 
tras retinas. 

Acrescente as linhas que se seguem a 
parte do programa jd digitada: 



fffi 



200 LOCATEO, T*2+3: PRINT" JOGO" jT 

210 GOSUB970:IFT-3 THEN 310 

220 C=1:F0R D-1 TO 5 

230 L0CATE9+D*4,9:PRINT''?" 

240 AS=INKEyS:IFAS<>"N-ANDAS<>" 

n'ANDAS<>'B-ANDAS<>''S-TBEN240 

250 IF AS-'N'ORAS-'n'THENPLATfO 

3L64CB":G0TO270 

260 PLAY"06L64CB" :TR{C)-T{D) tC= 

C+l 

2 70 LOCATE0,9:PfilNTCL$:NEXTD 

280 IFC=6THENGOSUB340: RETURN 

290 FORD-C TO 5 :TR CD) -INT (BND {- 

TIKE}*6)+1:NEXTD 

300 GOSUB340 

310 T-T+1 

320 IFTO4THEN200 

330 FORE-1TO700: NEXT: RETURN 

340 F0HD-1T05:T{D)-TB(D) ;NEXTD: 

RETURN 

70 FORD- 1T05:FORG-1T04: LOCATED 
4-l-8,G+4:PRINTDS(T(DJ .G) i sNEXTG 
,D; RETURN 



HIEI 



190 T = 1: FOB D • 1 TO 5:T(D) 
= INT ( RND (1) * 6) + Is NEXT 



200 
OGO 

210 
10 
220 
230 



UTAB {T * 2 + 3) : PRINT "J 
GOSUB 970; 



IF T = 3 THEN 3 



D - 
D « 



1 TO 5 
4) ; VTAB 



(9) 



> "S" AMD 



IF AS < 

THEN 240 
"N" THEN 270 

= T(D):C » C + 1 

(9 + D » 4> : VTAB 

" : NEXT D 

= 6 THEN GOSUB 340 



19) 



C - 1; FOR 
HTAB (9 + 
: PRINT "?-; 
24 GET A3: 
AS < > "N" 
250 IF A$ - 
260 TR<C} 

2 70 HTAB 
: PRINT 
2S0 IF C 
RETURN 

290 FOB D - C TO 5:TR(D) ■ 
T ( RND (1) * -6} +1: NEXT 
300 GOSUB 340 
310 T-T+1 

3 20 IF T < > 
330 FOR E = I 
ETURN 

340 FOR D = 1 TO 5:TtD) = TH(D 
) : NEXT : RETURN 
970 FOR D » 1 TO 

4 + fl) : VTAB (6) 
) ) i ;, NEXT ; RETURN 



IN 



4 THEN 200 
TO 700 : NEXT 



5: HTAB <D * 
PRINT DCS(T{D 



190 T=1:F0RD-1T05:T{D)=JNT{BND{ 
-TIME) *6)+l: NEXT 



240 LET T-1: FOR D-l TO 5: LET 

T CD) -INT CRND*6)*1: NEXT D 

250 PRINT AT 6+T*3,7;"JOGO "iT 

260 GOSUB 1180 

270 IF T-3 THEN GOTO 390 

280 LET C-1 : FOR D-l TO 5 

290 PRINT AT 7+T*3,16+D«2i"?" 

300 FOR J-l TO 50: NEXT J 

310 LET AS-INKEY$: IF AS-"" 

THEN GOTO 310 

320 IF AS-"N" THEN SOUND .1. 



~10: GOTO 360 

330 IF ASO-S" THEN GOTO 310 

340 SOUND .1,30 

350 LET R(C)-T(D): LET C-C+1 

360 PRINT AT 7-*-T*3 , 16+D*2 i " ': 

NEXT D 

370 IF C=6 THEN GOSUB 420: 

LET T-4: GOTO 40 

380 FOR D-C TO 6: LET R(D)-INT 

(RND*6)+1: NEXT D: GOSUB 420 

390 LET T-T+1 

400 IF T04 THEN GOTO 250 

410 RETURN 

420 FOR D-l TO 5: LET T(D)"B(D 

) : NEXT D : RETURN 
1180 FOB D-l TO 5: PRINT PAPER 

2; INK 6: BRIGHT 1;AT 6+T*3.I6 
+D*2iCHRS C143+TCD)): PAUSE 2: 
SOUND .01.RND*40: NEXT D: RETUR 
N 

Q 

140 FOB H-1 TO S:FOH I-l TO 12: 

FOR N-1 TO HP 

150 CLS:H-6:Y-2: GOSUB 980: GOSUB 

190 
160 SOUND 50, 3: FOR E-1 TO fl0O:N 
EXT 

170 CLS: GOSUB 350 'CLS: NEXT N.I 
180 CLS:GOSUB 990: NEXT R:END 
190 T-1: FOR D-l TO 5:T(D)-RND(6 
) ' NEXT 

200 PRINT 664 *T+64. "LANCE t";Ti 
210 GOSUB 970: IF T-3 THEN 310 
220 C-1: FOR D-l TO 5 
230 PRINT e288.TAB{9+D»'4)"?" 
240 A3-INKEY$:IF A$<>"N" AND A$ 
<>"S" THEN 240 

250 IF h$''ti' THEN SOUND 10, 1:0 
OTO 270 
260 SOUND 100,1 :TR(C)*T(D) :C-C+ 

1 

270 NEXT D: PRINT 8288 

280 IF C-6 GOSUB 340: RETURN 

290 FOR D-C TO 5 : TR{D} -RND (6) :N 

EXT D 

300 GOSUB 340 

310 T-T+1 

320 IF T04 THEN 200 

330 RETUIIN 

340 FOR D-l TO 5 :T (D) -TR (D) :NEX 

T D: RETURN 

970 FOR D-l TO 5: FOR G-1 TO 4:P 

aiNT §136+G«32+D«4,D3(TCD) ,G) ; : 

NEXT G,D: RETURN 

9870 PRINT ey*32*W-((LENCN3(N]) 

)/2) ,NS(N) : RETURN 

No primeiro lancamento, utilizam-se 
OS cinco dados. O resultado e exibido na 
tela por meio da rotina da iinha 970 
(1 180, no Spectrum). O jogador escolhe 
entao quais sao os dados "bons" e quais 
sao OS "ruins", indicando os primeiros 
com um S e os segundos com um N. Ele 
tera mais duas chances de lan^ar os da- 
dos ruins, devendo teclar S(ira) para os 
dados que quer "segurar" e N{ao) para 
OS demais. 
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Os numeros dos cinco dados iniciais 
sao armazenados na matrizT{ ). Depois 
do primeiro lanfamento, os dados que 
"seguramos" sao guardados tempora- 
riaraenie na matriz R( ), que e preenchi- 
da com outros valores randoraicos ate 
ficar com cinco numeros. Esses valores 
sao levados de volta para a matriz T( ) 
por meio da rotina da linha 340 (420, no 
Spectrum), Os resultados sao exibidos 
na tela mais uma vez e o processo se re- 
pcte no pr6ximo lan^amento. 



PLACAft 



A maior parte da rotina dedica-se aos 
c&iculos do placar e a verificaeao de en- 
tradas. 



m 



350 CL3 

360 Y-0;GOSUB980:P[IIMTSTRINGS{3 

0,205) !" PLACAR" 

370 PRINT-UKS : "XS'DOIS 

:"X3"TRES. ....... :-X$"Q 

UATROS r'XS'CINCOS ! "X 

S'SEIS . :" 

380 PRINT'4 IGUAIS. . . . :"X$"CA3A 
CHEIA. . :-X9"CURT0. ...... :"X3"L 

ONGO :"XS"MISTO :"X 

S-YATCR :''X5 

390 PRINTTQTAL ... : " ; 

400 GOSUB460 

410 GOSUB490!G03UB460 

420 LOCATE22,5:PElINT'<(iual<iuar 

tecla>- 

440 A3-INKEYS:IFAS-""THEN440 




450 RETURN 

460 F0ED-1T012:IFP(N.D)-1 THENL 

0CATE16 , 1+D : PRINT'X" i 

470 IFO (N . D) OOTHENLOCATE15 .1+D 

:PRINTO(N.D} t 

480 NEXTD : C-0 : FORD-lTOl 2 : C-C+O ( 

N.D) :NEXT:L0CATE1S,15;PR1NTC; :R 

ETURN 

490 LOCATE2,20:PRINT"TEMPO"Hi :L 

OCATEl . 21 : PRIMT" JOGADA" I ; 

500 LOCATED, 17 jPRINT-RESULTADO 

i 
510 F0RD-1T05 : FOHG-1T04 : L0CATE9 
+4«D,l5+a;PRINTDS(TCD) ,G) ; :NEXT 
G,D 
5 20 L0CATE16, 20: PRINT' E3C0LHA 

GHUPO' ; 
530 A-1 

540 LOCATE13,l+A:PBINTCHRS(60) ; 
550 BS-INKEY5:IFB$<>" "ANdB$<>C 
HR$ ( 30) ANDB30CKRS (31) THEN550 
560 IFB3-" "THEN620 
570 LOCATE 1 3. 1+A: PRINT* 's 
560 IFBS-CHR5(30)ANI>A>1THEMA-A- 
1 

590 1FB$-CHHS(31)ANDA<12THENA-A 
+1 

600 PLAyoeA" 

610 GOT0540 

620 L0CATE13.1+A: PRIMT- "jiIFPC 

N,A)<>0THEN950 

630 IFA>6THEN700 

640 C-0 

650 FOHD-lTOS:IFTtD)-A THEMC-C+ 

1 

660 NEXTD 

670 0(N,A)-C«A 

680 P(N.A}-1 

690 RETURN 

700 IFA»11THENF0HD=1T05:0(N,11) 

-0(N,11)+T{D) :NEXT:PCN,11)«1:RE 

TURN 

710 FORD=1T05:D(D)-0:NEXT:B-0:F 

0RE»1TC6 rC-0 : F0RD-1T05 : IFT (D) -E 
THENC-C+1 

720 NEXTD! IFCOOTHENB-B+1 

730 NEXTE 

740 G-1:FOBF-1T06:GOSUB1140:IFC 

OOTHEND (G) -F : 0-G+l 

750 NEXTF 

760 P(N,A)-1:A='A-6:0NA GOT0770, 

810.830,870,960,890 

770 IFB>2THEN900:IFB-1GOSUB1160 

:0(N,7)=C*4:RETUHN 

780 F-1 

750 GOSUB1140:F-F+lrIFC<>4ANDF< 

>7THEN790ELSEIFC<4THEN900 

SOO 0(N.7)-4*{F-1) :RETURN 

810 IFB<>2THEN900ELSEF-Dtl) :G03 

UB1140:IFC-3THEN820ELSEF"DC2) ;Q 

OSUB1140 : 1FCO3THEN900 

820 F0HD-1T05 :0 (N. 8) -0 (N , 8) +T <D 

) : NEXT : RETURN 

830 1FB04THEN850ELSEGOSUB1160 : 

IFC<>ieANDC<>10ANDC<>14 0R(C-14 

ANDDt4)-6)THEN90O 

840 0(N,9)-15:HETURN 

850 1FBO5THEN900ELSEG0SUB1160: 

IFCO20ANDCO15ANDCO16ANDCO19 

THEN900 

860 GOTO840 

870 IFBO5THEN900ELSEG0SUB1160: 

IFCO20ANDCO15THEN900 



880 0(N, 10) -30: RETURN 
890 IFB<>1THEM900ELSEO(N,12)-50 
: PLAY'GFG" : F0RE-1TO700 :NEXT :RET 
URN 

900 PLAY"03GGG-rLOCATE22.5:PRIN 
T"ile<jal, ELIMINA?" j 
910 A$-INKESS:IFA$<>"S"ANDA5<>- 
B'ANDAS<>''N''ANDA$<>''n"THEN910 
920 L0CATE22,5:PRINTSTRINGSC17. 
32) i 

930 IFAS-"N-0HA3-"n"THENP(N,A+6 
)=0:GOT0530 
940 P(N,A-t-6)-l:RETUHN 
950 PLAY"03CFD'' : LOCATE22 . 5 : PRIN 
T'GRUPO OCUPADO": :FORE"lTO700:N 
EXT : L0CATE2 2 , 5 : PRINTSTRINGS { 14 , 
32) ; :GOTO530 
960 RETURN 

1140 C-0:F0ftD-lTO5:IFT(D)"F THE 
NC-C+1 

1150 NEXTD: RETURN 
1160 C-0 rF0RD-lT0B:C-C+D(D) :NEX 
TD: RETURN 



HIE] 



350 HOME 

360 Y =■ 1 : GOSUB 980: INVERSE : 

PRINT "»»>»»>>»»»»»» 
»> PLACAR <«" 
370 NORMAL : PRINT : FOR T = 1 

TC 12; PRINT AS(T): NEXT 
380 PRINT : INVERSE : PRINT "T 

OTAL -: NORMAL 

400 GOSUB 460 

410 GOSUB 490: GOSUB 460 

420 HTAB (22) : UTAB (8) : PRINT 

'*<QUALQUER TECLA>"; 
440 GET AS: IF AS = -" THEN 44 


450 RETURN 
460 FOR D - 1 TO 12: IF P(N,D) 

■= 1 THEN HTAB (15): VTAB (3 + 

D) : PRINT "X" ; 
470 IF 0{N,D) < > THEN HTA 
B (15): UTAB (3+0): PRINT (N 
.0) i 
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TO 

D) 



5: V?TAB (19) : 
PRINT DC$tT( 



480 NEXT D-C - 0: FOR D - 1 
12 :C - C + 0(N,D) : NEXT 

485 HTAB (15): VTAB (17): PHIN 

T C " RETURN 

490 VTAB t22) : PBINT TAB ( 3) i 

•TEMPO";a: PRINT TAB { Di'JOGA 

DA ";I 

500 VTAB C19) : PRINT "RESULTAD 

- -; 

510 FOR D - 1 
HTAB (9 + 4 * 

D)) ; : NEXT D 

SZO KTAB (16) 

T "ESCOLHA O ORUPO" ; 

530 A - 1 

540 HTAB tl3) 

RINT CHRS (60) ; 

550 GET B$: IF B$ 

81) AND B$ < > 

BS < 

560 



570 

RIHT 

580 



VTAB (21) 



VTAB (3 + A) ; 

< > CHRS { 
CHHS (90) AND 
> CHRS C32] THEN 550 
IF BS - CBRS (32) THEN 62 

HTAB (13) : VTAB (3 + A) : 



(81) AND A 



IF BS - CHRS 

1 THEN A • A - I 
590 IF BS - CHRS (90) AND A 

12 THEN A - A + 1 
600 PRINT CHRS (7) 
610 GOTO 540 

620 HTAB (13): VTAB (3 + A) t P 
RINT " -;: IF P(N,A) < > THE 
N 950 

630 IF A > 6 THEN 700 
640 C = 
6S0 FOR D - i TO 5; IF (T(D) = 

A) THEN C ■= C + 1 
660 NEXT D 
670 0(N,A) = C * A 
680 P<N,A) = 1 
690 RETURN 
700 IF A - II THEN 
TO S:0(N.ll) 
NEXT :P(N,11) = 1 
710 FOR D - 1 TO 
EXT ; B • : FOR E 
0: FOR D - 1 TO 5 
THEN C - C + 1 
720 NEXT D: IF C < > THEN B 

= B + 1 
730 NEXT E 
740 G » 1: FOR 
B 1140: IF C < 

F:G - G + 1 
750 NEXT F " 
760 P(N,A) ' 1 
GOTO 770, BID, 830, 870, 960, 890 
770 IF B > 2 THEN 900: IF B - 
1 GOSUB 1160?O(N,7) - C * 4; RE 
TURN 




FOR D - 1 

O(N.ll) + T(D) : 
: RETURN 

5:D(D) - 

- 1 TO 6 
: IF T(D) 



0: 
:C ' 



N 



= 1 TO 6: GOSU 
THEN D(G) - 



6: ON A 



7B0 
790 

< 
795 



F - 1 

GOSUB 1140 :F - F + 1: IF C 
> 4 AND F < > 7 THEN 790 

IF C < 4 THEN 900 



- 4 * (F - 1) : RETUR 



m 



800 0(N,7) 

N 

810 IF B < 

812 F » D[l) 

= 3 THEN 6-20 

814 F - D(2) 

< > 3 THEN 900 

820 FOR D - X TO S:0(N,8) 

N,8) H- TCD); NEXT : RETURN 



> 2 THEN 90 
; GOSUB 1140: IF C 

: GOSUB 1140: IF C 



0( 



830 IF B < > 4 THEN B50 

835 GOSUB 1160: IF C < > 18 A 

ND C < > 10 AND C -: > 14 OR ( 

C - 14 AND DC4) •= 6) THEN 900 

840 0(N,9) - 15: RETURN 

850 IF B < > 5 THEN 900 

855 GOSUB 1160: IF C < > 20 A 

ND C < > 15 AND C < > 16 AND 

C < > 19 THEN 900 

860 GOTO 840 

870 IF B < > 5 THEN 900 

875 GOSUB 1160: IF C < > 20 A 

ND C < > 15 THEN 900 

880 O(N,10) - 30: RETURN 

890 IF B < > 1 THEN 900 

896 0(N,12) - 50: PRINT CHRS ( 

7): FOR E - 1 TO 700: NEXT : RE 

TURN 

900 PRINT CHRS (7) ! CHRS (7) : 

HTAB (22): VTAB (5): PRINT "ll 
e^al. ELIMINA?-; 
910 GET AS: IF AS < > "S" AND 

AS < > 'N' THEN 910 
920 HTAB (22): UTAB (5): PRINT 

CLS i 
930 IF AS - "N" THEN P(N.A + 6 
) = 0: GOTO 5 JO 
940 P(N,A + 6} = 1: RETURN 
950 PRINT CHRS (7) ; CHRS (7) : 

HTAB (22) : VTAB (5) : PRINT "GR 
UPO OCUPADO";: FOR E = 1 TO 700 
■ NEXT 
955 HTAB (22): VTAB (5); PRINT 

CLS; : GOTO 530 
960 RETURN 

1140 C = 0: FOR D = 1 TO 5: IF 
TCD) =■ F THEN C = C + 1 
1150 NEXT D: RETURN 
1160 C = 0: FOR D = 1 TO B:C == 
C + D (D) : NEXT D : RETURN 



4 30 BORDER 0: PAPER 0: INK 6: 

CLS 



'440 PLOT 4,4: DRAW 0,167: DRAW" 
124.0! DRAW 0.-167: DRAW -124, 


450 PRINT INK 5 1 AT l,5;NS(N)i 
INK 4;AT 2.1;"** PLACAR **' 
460 RESTORE 1280: FOR M-4 TO 
17: READ AS: PRINT AT M,l;A$i 
QS{ TO 11-LEN AS):: IF M016 
THEN PRINT '•' 
470 NEXT M 
480 GOSUB 530 
490 GOSUB 560; GOSUB 530 
500 PRINT FLASH 1 i AT 20.18;'Q 
UALQUEH TECLA":AT 21,1B:"P/ CO 
NTINUAR " 

510 LET AS-INKEYS: IF AS-"" 
THEN GOTO 610 
520 RETURN 

530 FOR D-1 TO 12: IF P(N.D)-1 
THEN PRINT AT 3+D,13i"X'' 
540 IF O(N,D)<>0 THEN PRINT 
AT 3+D,13iO(N,D) 
550 NEXT D: LET C-0 : FOR D-1 
TO IZ: LET C-C+0{N.D): NEXT D: 
PRINT AT 17,13;C: RETURN 
560 PRINT AT 8, 18; "TEMPO " ; R ! 
AT 9. ie;"SECAO ";I 
570 PBINT AT 2 , 18 ; "HESULTADO- 
": LET T— 1: GOSUB 1180 
580 PRINT AT 5 , 18 ! "ESCOLHA G 
RUPO" 

590 LET A«'4 

600 PBINT AT A, 15 (CHRS 150 
610 LET BS-1NKEY$: IF 8$-"" 
THEN GOTO 610 

620 IF BS=" " THEN LET A-A-3: 
GOTO 710 

630 IF BS="K" THEN GOTO 650 
640 IF BSO'M" THEN GOTO 610 
650 PRINT AT A, 15;" " 
660 IF BS-'K' AND A=4 THEN 
GOTO 600 

670 IF B$="M" AND A=15 THEN 
GOTO 60 

680 IF B$-"M" THEN LET A-A+1 
690 IF B3-'K" THEN LET A-A-1 
700 SOUND .01,5: GOTO 600 
710 PRINT AT A+3.15;" ": IF P{ 
N,A)<>0 THEN GOTO 1240 
720 IF A>6 THEN GOTO 780 
730 LET C-0 

740 FOR D-1 TO 5: IF T(D)-A 
THEN LET C=C+1 
750 NEXT D 
760 LET 0(N,A)-C*A 
770 LET P(N,A)-1: RETURN 
780 IF A-11 THEN FOR D-1 TO S 
: LET 0(N,11)-0{N,11)+T(D) : 
NEXT D: LET P(N.ll)-l: RETURN 
790 FOR D«l TO 5: LET D (D) -0 : 
NEXT D: LET B-0 : FOR E-1 TO 6: 
LET C-0: FOR D»l TO 5 : IF T (D) 
-E THEN LET C-C+1 
80 NEXT D: IF COO THEN LET 
B-B+1 

BIO NEXT E 

820 LET G-1: FOR F-1 TO 6: 
GOSUB 1250: IF COO THEN LET 
D(G)-F: LET G-G+1 
830 NEXT F 

840 LET PCN.A)=1: IF A-7 THEN 
GOTO 950 
650 IF A-S THEN GOTO 1010 
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860 IF A-9 THEN GOTO 1050 
870 IF A-JIO THEN GOTO 1120 
690 IF A-12 THEN GOTO 1160 
950 IF B>2 THEN GOTO 1190 
960 IF B-1 THEN GOSUB 1270: 
LET 0(N,73-C: RETURN 
970 LET F-1 

980 GOSUB 1250: LET F-F+1: IF 
C<>4 AMD F07 THEN GOTO 980 
990 IF C<4 THEN GOTO 1190 
1000 LET 0(N.7)-4*(F-1) : RETURN 

1010 IF B02 THEN GOTO 1190 
1020 LET F-D{1>: GOSUB 1250: IF 

C-3 THEN GOTO 1040 
1030 LET F-DC2) : GOSUB 1250: IF 

C03 THEN GOTO 1190 
1040 LET OtN,8)-0: FOR G-1 TO 5 
: LET 0(N,e3-OCN,8)+T{G) : NEXT 
G: RETURN 

1050 IF B04 THEN GOTO 1080 
1060 GOSUB 1270: IF C018 AND C 
OlO AND C<>i4 OB CC-14 AND D{4 
)-6) THEN GOTO 1190 
1070 LET 0CN,9)-15; RETURN 
1080 IF B05 THEN GOTO 1190 
1090 GOSUB 1270: IF C-15 OH C-1 
6 OR C-19 THEN GOTO 1070 
1100 IF CO20 THEN GOTO 1190 
1110 GOTO 1070 

1120 IF BOS THEN GOTO 1190 
1130 GOSUB 1270: IF C-15 OR .C-2 
THEN GOTO 1150 
1140 GOTO 1190 
1150 LET 0{N,10)-30: RETURN 
1160 IF BOl THEN GOTO 1190 
1170 LET 0(N,12)-50: RETURN 
1190 SOUND .5.5: PRINT AT 20, IB 
j'lLEGAL !":AT 21 , 18 ; "ELIMINA ? 

1200 LET AS=INKEYS: IF AS-"" TH 
EN GOTO 1200 

1210 IF AS-"N" THEN PRINT AT 2 
0,18;" ";AT 21. 18;" 

": LET P(N,A)-0; GOTO 590 
1220 IF A$<>"S' THEN GOTO 1200 
1230 LET P{N,A)=1: RETURN 
1240 SOUND .5,5: PRINT AT 20,18 
f'GBUPO OCUPADO"; FOB H-1 TO 30 
0: NEXT H: PRINT AT 20,18;" 
' : GOTO 590 

FOR D-1 TO 5: IF 
LET C=C-»-l 
RETURN 
FOR D-1 TO B: LET 
C-C+DCD): NEXT D: RETURN 
1280 DATA "UNS" ."DOIS" ."TRES" ," 
CUATHOS" , 'CINCOS" , "SEIS" , "IGUAI 
S",-CASA CHEIA"."CURTO",-LONGO" 
,-MISTO","yATCH", " 
•TOTAL" 




1250 LET C-0 
T(D}=F THEN 
1260 NEXT D: 
1270 LET C'O 



D 



350 CLS 

360 W-6:y-0:GOSUB 980 : PRINT" *** 

•SCORE****" 

370 PRINT'UNS. .... : "X$-DOIS 

:''XS"TRES :'X$"Q 

UATHOS I'XS-CINCOS. ... . .r'X 

S"SEIS :- 



360 PRINT"4 OF A KIND. : "X$"FULL 
HOUESE. , ;'XS'SHOBT HUN. . . :''XS" 

LONG RUN ;"X3'SM0ftT HUN . . . : - 

X$'L0NG RUN. . . . I'XS'CHOICE 

. : 'X$"YATCH : "XS 

390 PRINT'TOTAL :" ; 

400 GOSUB 460 
410 GOSUB 490: GOSUB 460 
420 PRINT §466,"qualquer tecla" 
;:PRINT §498, 'para continuar"; 
430 SOUND 60.1 

440 AS-INKEy$:IF A$-"" THEN 440 
450 RETURN 

460 FOB D-1 TO 12: IF P(N,DJ-1 T 
HEN PRINT e45+D*32,''X"; 
470 IF 0{N,D]<>0 THEN PRINT §45 
+D*32,0tN,D) ; 

480 NEXT D:C-0:FOR D-1 TO 12:0- 
C+0 (N , D) : NEXT : PRINT ©493 . C ; : RET 
URN 

490 PRINT §53. -HOUND"B; : PRINT § 
84,-SECAO'I; 

500 PRINT eil5,-GRUP0 FINAL-"; 
510 FOR D-1 TO S:F0a G-1 TO 4 : P 
HINT §111+0*32- (D>3)*lie+4*D,DS 
<T(D) ,G) : :NEXT G.D 
520 PRINT §403, "SELECT GROUP"; 
530 A-1 

540 PRINT €49+32*A,CHRS(95) ; 
550 B$-INKEYS:IF BSO" " AND BS 
<>-"' AND BSOCHR5C10) THEN 550 
560 IF BS-" • THEN 620 
570 PRINT §49432*A," "; 
580 IF BS-"-- AND A>1 THEN A-A- 
1 

590 IF BS-CHRSdO) AND AC12 THE 
N A-A+1 

600 SOUND 200.1 
610 GOTO 540 

620 PRINT «49+32*A,'' " ; : IF P(N, 
A)<>0 THEN 95 
630 IF A>6 THEN 700 
640 C-0 

650 FOR D-1 TO 5: IF T CD) -A THEN 
C-C+1 



660 NEXTD 

670 0(N,A3-C«A 

680 P(N,A)-1 

690 RETURN 

700 IF" A-11 THEN FOR D-1 TO 5:0 

CN,11)-0CN,113+T{D) :NEXT:P(N,11 

)-l: RETURN 

710 FOR D-1 TO 5:D(DJ-0;NEXT:B- 

0:FOR E-1 TO 6: C-0: FOR D-1 TO 5 

:IF T{D)-E THEN C-C+1 

720 NEXT D:IF COO THEN B-B+1 

730 NEXT E 

740 G-l:fOH F-1 TO 6:G0SUB 1140 

:IF COO THEN D(G)-F:G-G+1 

750 NEXT F 

760 P(N,A)-1:A-A-6;0N A GOTO 77 

0,610,830,870.960.890 

770 IF B>2 THEN 900 ELSE IF B-l 
GOSUB 1160 :0(N, 7) -0*4: RETURN 

780 F-1 

790 GOSUB 1140: F-F+1: IF C04 AN 
D F07 THEN 790 ELSE IF C<4 THE 
N 900 

BOO OCN,7)-4*(F-l) :RETURN 

810 IF B02 THEN 900 ELSE F-Dtl 

) r GOSUB 1140 :IF C-3 THEN 820 EL 

SE F-D(2);G0SUB 1140:IF C03 TH 

EN 900 

820 FOR D-1 TO 5 : (N, 8) -0 tN,8) + 

TCD) ; NEXT: RETURN 

830 IF B04 THEN 850 ELSE GOSUB 

1160: IF COie AND COlO AND C< 
>14 OR {C-14 AND D<4)-6) THEN 9 
00 

840 0(N, 9) -15: RETURN 
850 IF BOS THEN 900 ELSE GOSUB 

1160: IF CO20 AND C015 AND C< 
>16 AND C019 THEN 900 
860 GOTO 840 
870 IF BOS THEN 900 ELSE GOSUB 

1160: IF CO20 AND C015 THEN 9 
00 

880 O(N.10)-30:RETURN 
890 IF SOI THEN 900 ELSE 0{N,1 
2)-50:SOUND 5 . 8 : FOR E-1 TO 700: 
NEXT E: RETURN 

900 SOUND 20,1: PRINT §432,"! leg 
al. PERDE?-; 

910 AS-INKEYS:IF ASO"S" AND A3 
<>"N" THEN 910 
920 PRINT §432," 



•N" THEN P(N,A+6)-0:G 



930 IF AS- 

OTO 530 

940 P(N.A+6)-l: RETURN 

950 SOUND 5,1: PRINT «4 33,-SECAO 

PREENCHIDA"; :FOH E-1 TO 700:NE 
XT: PRINT §433," 
"; :GOTO 530 
960 RETURN 
1140 C-0:FOH D-1 TO 5:IF T(D)-F 

THEN C-C+1 
1150 NEXT D: RETURN 
1160 C-0:FOfl D-1 TO B:C-C+DtD): 
NEXT D: RETURN 



IMPRESSAO DO ESQUELETO 



A primeira segao dessa rotina — que 
vai ate a linha 520 no Spectrum e linha 
450 nos outros micros — mostra na te- fjg 



I(||||||||mm45 PftOGRAMACAODEJOGOS 45 



la o esqueleto do placar (nomes dos gru- 
pos e do jogador) e chama duas outras 
roiinas para preencher os grupos e re- 
ceber a ultima entrada. 

A rocina constituida pelas tres linhas 
seguimes preenche o esquekto com o 
placar anterior e fornece a soma dos to- 
tals. Depois dela encontra-se uma reti- 
na maior, incumbida de receber c ana- 
lisar as entradas. 

.\s primeiras linhas dessa rotina apre- 
sentam na tela informa^'oes sobre o nu- 
mero da partida e da jogada e, o que e 
mais iraportame, mostram a combina- 
t;ao final obtida. As linhas seguinles, 
alem de identificar a tecla que esta sen- 
do pressionada, movem o cursor para 
cima e para baixo no esqueleto. Para a 
movimentai;ao do cursor, o Spectrum 
usa as teclas M e K; o MSX e o TRS- 
Color, as setas, e o Apple e o TK-2000. 
as teclas Q e Z. 

Quando se pressiona a barra de es- 
pa?o, o programa interpreta que o gru- 
po apontado pelo cursor Toi escolhidP. 
A posit;ao do cursor e armazenada na 
variavel A, ondc A=l corresponde a 
posifao do grupo dos UM, A = 2 equi- 
vale k posi^ao do grupo dos DOIS e as- 
sim por diante ate A= 11, que corres- 
ponde a posicao do YATCH. O valor 
de A e usado pelo restante da rotina pa- 
ra calcular a pontuagao do placar. _ 

Uma outra variavel importante e a 
variavel B, que coniem o niimero de da- 
dos diferentes enlre si: B = 2 (dois tipos 
de valores), por exemplo, representaria 
uma FULL HOUSE e B= 5 (cinco lipos 
de valores), urn LONGO. 

Portanto, dependendo do valor de A, 
roiinas diferentes sao ehamadas para ve- 
rificar se a combinas^ao dos dados real- 
mente corresponde ao grupo escolhido. 
Se corresponder, o placar e calculado e 
apresentado na tela. Caso contrario, a 
mensagem "ILEGAL" eexibida. O jo- 
gador decide, eniao — com um S ou um 
N — , se o grupo deve ser eliminado. O 
computador verifica tambem quais gru- 
pos ji foram usados. 



RESULTADO FINAL 



Esta ijttima se^ao simplesmente apre- 
senta na tela o placar final, com os pon- 
tos dos jogadores em cada partida. O 
ruimero da partida 6 exibido no topo do 
placar final e os nomes dos jogadores 
mais abaixo, k esquerda. 
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1000 LOCATED , 4 : FOpD-lTONP : PRIMT 

NS(D) :NEXT 

10 20 FORD-ITONP 

1030 C-0:F0RE-'lT012:C-C+O(D.E) : 

NEXT : S {D, R> -C :NEXTD 

1040 FOHD-lTO5:L0CATE3+D*4,2:PH 

INTD; :NEXT 

10 50 PRINT" TOTAL" 

1060 FORD-ITONP 

1070 FOaE=lTOR 

lOaO LOCATE3+E*4,3+DiPRINTS(D.E 

) i :NEXTE,D 

1090 FORD-1TONP:C-0:FORE-1TOR:C 

-C+S (D. E) rNEXTE : L0CATE26 . 3+D : PR 

INTC: :NEXTD 

1100 L0CATE2, 19;PHINT''< qualque 

r tecla para outra rodada >' 

1110 A$=-INKEY$:IFAS-''"THEN1110 

1120 F0RE-1T0NP;F0RD=1T012:0CE, 

D)-0:PCE,D)»0:NEXTD,E 

1130 RETURN 



[EE] 



990 CLS:PBINT">»»»»> 
« AR FINAL «««««" 



PLAC 



990 HOME : INVERSE : PRINT ">> 
»>»»» PLACAR FINAL ««« 
«<«": NORMAL 

1000 UTAH (5) : FOR D = 1 TO NP 
: PRINT LEFTS CMS(DJ,10}: NEXT 

1020 FOB D = 1 TO NP 

1030 C - 0: FOR E = 1 TO 12:C = 

C -t- OtD.E): NEXT :S(D,R) - C: 
NEXT D 
1040 FOR D - 1 TO &: HTAB (9 + 

D * 4) : VTAB (3): PRINT t); : NE 
XT 

1050 PRINT " TOTAL" 
1060 FOR D = 1 TO NP 
1070 FOR E - 1 TO H 
1060 HTAB (9 + E * 4) : UTAB {4 

+ D) : PRINT S(D,E);: NEXT E,D 
1090 FOR D - 1 TO NP;G - 0: FO 
R E - 1 TO R:C - C + SCD.E) : NE 
XT E: HTAB (33): VTAB (4 + D) : 
PRINT C: : NEXT D 

1100 HTAB (2): UTAB (22): PHIN 
T "< QUALQUEH TECLA PARA OUTRA 
RODADA y" i 

1110 GEt'a$: if as - '" THEN 1 
110 

1120 FOR E " 1 TO NP: FOR D " 
1 TO 12:0(E,D) - 0:P(E,D) - 0: 
NEXT D,E 
1130 RETURN 



1290 BORDER 7: PAPER 7; INK 3: 

CLS 

1300 PRINT "**********PLACAB FI 

NAL* ********** 

1310 PRINT AT 7.0: FOR 0=1 TO N 
P: PRINT NS(D>!'' : " " : NEXT D 
1320 PRINT INK 1:AT 3,0;"JOGAD 
OR"; INK 2;AT 3.13j-T E M P 0" 
1330 PRINT AT 5,12;; FOR D-1 TO 
5- PRINT INK 2; TAB C4+D*4) [D; 
: NEXT D: PRINT INK Oj' TOTE 

Vf 

1340 FOR D=l TO NP 

1360 LET C-0: FOR E=l TO 12: LE 




T C-C+0(D,E): NEXT E: LET S(D,R 

)=C: NEXT D 

1370 FOR D-1 TO NP : FOB E'l TO 

R 

1380 PRINT INK 4 ;AT 6+D*2,4+E* 

4;S(D,E): NEXT E: NEXT D 

1390 FOR D-1 TO NP: LET C=0 : FO 

R £=1 TO R: LET C=C+StD,E): NEX 

T El PRINT AT 6+D*2,28:C: NEXT 

D 

1400 PRINT 11 i INVERSE 1; INK 

;" QUALgUER TECLA PARA CONTINUA 

R " 

1410 LET AS = INKEy$: IF A5=" TH 

EN GOTO 1410 

1420 FOR E=l TO NP: FOR D-1 TO 

12: LET OCE,D)-0: LET P(E,D)=0: 

NEXT D: NEXT E 
1430 RETURN 



D 



990 CLS: PRINT" *****TABELA DE PO 

NTOS*****" 

1000 PRINT 6129: FOR D"l TO NP : P 

RINT NS(D} :NEXT 

1010 PRINT 675, "H U N D" 

1020 FOR D-1 TO NP 

1030 C-0: FOR E-1 TO 12:C-C+0(D. 

E) :NEXT:S(D,B)-::NEXT D 

1040 FOB D=l TO 5 ; PRINT 698+0*4 

,D; :NEXT 

1050 PRINT" TOTAL" 

1060 FOR 0=1 TO NP 

1070 FOR E-1 TO R 

1080 PRINT §129+D*32+E*4,S(D,E) 

; :NEXT E,D 

1090 FOR D-1 TO NP:C-0:FOR E-1 

TO R:C-C+S(D. E) :NEXT E:PRINT 61 

53+D*32,Cj :NEXT D 

1100 PRINT 6448," QUALQUEH TEC 

LA PARA PEvOXIMA JOGADA."; 

1110 A$-INKE)fS:TF A3-"" THEN 11 

10 

1120 FOR E-1 TO NPiFOR D-1 TO 1 

2:0(E,D)-0:P{E,D)-0:NEXT D.E 

1130 RETURN 
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^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 


^ 


-y 


^ 


h!!<i 


,1 


microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 


I - 


—r- 


.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



IIIIIIIIIIHHNO PROXIMO NUMEROBnillllllll 



c6digo de maquina 

Atice as cobras: a vida de Willie vai ficar bem complicada, mas Avalanche ganhara muita emogao, 

PROGRAMACAO BASIC 

Sem o sistema operacional, seria muito dificil trabalhar com o computador. 
Conhega esse importante componente do seu micro, 

PROGRAMAQAO BASIC 

Aprenda a lidar com arquivos. A manipulacao dessa ferramenta e fundamental para determinadas operapoes. 

APLICACOES 

Voce quer comprar um monitor? Avalie a qualidade de sua imagem com 

nosso programa para teste de vi'deo. 

PROGRAMACAO BASIC 

O comando INPUT apresenta algumas limitacoes. 

Substitua-o por uma versatil rotina. 



PR^^'^ 



Ot PROOR^NV^^ 



otcoif 



tfrt^w* 



?ROQ 



10 B/^ 



: PRO 
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